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-REM 


IDENTIFICATION 


PRODUCT CODE: AC-8789C-MC 

PRODUCT NAME: CZFLACO FLOAT UTILITY PROG 
PRODUCT DATE: MAY 1985 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE 2 
USE OR RELIABLIITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT 
SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1977,1985 BY DIGITAL EQUIPMENT CORPORATION 
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SEQ 0002 
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5.2 ‘FA’ FLOATING ADDRESS OPTION 
‘VA’ FLOATING VECTOR OPTION 

6.0 ERRORS 

6.1 HALTS, TRAPS, OTHER FAILURES 

6.2 INVALID RESPONSES 

7.0 RESTRICTIONS 

8.0 MISCELLANEOUS 

8.1 TERMINAL ADDRESS MODIFICATION 

8.2 DELETE FEATURE 

8.3 CONTROL/C, CONTROL/Z, CONTROL/A, CONTROL/S AND CONTROL/Q 

8.4 DN11‘S AND PAC11‘S 

8.5 CHANGES TO PROGRAM 


1.0 ABSTRACT 
Float is a utility program to aide the operator with determining the 
addresses and vector of devices in the floating address or vector 


ereas. The addresses and vectors given are completely compatible with 
ell DEC standard software. 


2.0 REQUIREMENTS 


ee ee 
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2.1 Equipment 


Any PDP-11 processor with 4k of memory and a terminal. 


3.0 LOADING PROCEDURE 


3.1 Method 


The program is supplied on the diagnostic media. Refer to the XXDP 
operating manual for further information. 


4.0 STARTING PROCEDURE 


4.1 Starting Addresses 
By starting at address 200(8) or 204(8) the restart address is 


initialized, the program types name and version, control charactors 
and will prompt operator to set up terminal fill count. 


4.2 Restert Address 
Location 204(8) is the only valid restart address. 


5.0 OPERATING PROCEDURE 


5.1 Operator Action 


When the program is loaded and started the title and version are 
typed, control charactors are listed, and the operator is prompted with: 


TERMINAL TYPES: 
A = LA36 NO FILL 
L = LA120 100 FILL CHARACTER 
V = VTS2 OR VT100 50 FILL CHARACTER 
ENTER TERMINAL TYPE. (A,L.V)? 
To this the operator responds 


‘A‘<er> If terminal is an LA36 or requires nofill. 





eee 











a 
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'L'<er> If terminal is a LA120 or requires fill for 
@ carriage return. 

‘V'<cr> If terminal is a VT52 OR VT100 8 300 baud or more, 
or requires fill for a line feed. 


After the terminal fill has been entered or program has been restarted 
the program types. 


POSSIBLE OPTIONS ARE 
FA-FLOATING ADDRESSES. (DJ,DH,DQ,ETC.) 
VA-FLOATING ADDRESSES AND VECTORS 
HE -HELP 
EX-EXIT 
ENTER OPTION: 


At this point the program is waiting for a two (2) character response 
followed by a carriage return <cr> defining which option is wanted. 
The valid responses are: 


‘FA’ if the floating address option is desired. 

‘VA’ if the floating vector option is desired. 

‘HE’ if the help message is desired. 

‘EX’ if it is desired to exit back to the XXDP monitor. 


The program will the ask: 


“How many of each does the system have.” and then type a list 
of devices depending on the “option” selected. The list is typed one 
device at a time followed by a question mark. The operator responds 
to each question with the number of each device he has in decimal 
until the list is completed. (For exceptions and control characters 
see miscellaneous.) At the end of the list the program will type the 
addreess or vector information based on the number supplied by the 
operator. (See para. 5.2 and 5.3 for format of data. ) 


5.2 ‘FA’ - Floating Address Option 
‘VA' - Vector And Address Option 


This option will ask for the decimal number of each device in the 
floating address range or floating vector range. 


After receiving input for each device the program will type the device 
name, the address, the module number with the addressing logic, and 


the jumper(s) or switches(es) to be cutout or turned off in the 
following format. 


DEVICE CSR VECT COMMENT 


ADDRESS VECTOR 


ee 
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WHERE: 
NAME = ACTUAL DEVICE NAME (I.E. DJ11) 
ADDRESS = CSR ADDRESS OF THE DEVICE 
VECTOR = VECTOR ADDRESS 


NOTE: DEVICES ARE LISTED IN ASCENDING ADDRESS ORDER. 


6.0 ERRORS 


6.1 Halts, Traps, Other Failures. 


This program is not intended to be a diagnostic or system sizer. It 
does no checking of device addresses present or perform any other 
diagnostic functions. If program halts, traps, gets caught in a loop 
run CPU, memory and/or terminal diagnostics. 


“Do not use program to trouble shoot any failures.” 
6.2 Invalid Responses 


6.2.1 Invalid Response To ‘Terminal Type (A,L,V)?'. - The program 
will type: 


VALID RESPONSES ARE-- 
‘A’ - LA36 OR NO FILL 
‘L‘ - LA120 OR FILL FOR <CR> 
‘Vv’ - VTS2 AND VT10O0 OR FILL FOR <LF>? 


And wait for response. 


6.2.2 Invalid Response To “Option.” - The program will type: 


FA - FLOATING ADDRESSES (DJ,DH,0Q,0U,DUP,LK,DMC/R,0Z,KMC,LPP) 
CVM21,VM31,D0WR,RL,LPA,KW,RES,RX,DRW,ORB,OMP,DPV,ISB,DMV) 
CUNA, UDA, DMF ,VS100, TU81 ,KMV ,DHV/DHU,DMZ32/CPI32( ASYN) 
C(CPI32(SYN),QVSS) - 


Pe ee ee ee 


~—- 
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SEQ 0006 


VA - VECTORS AND ADDRESSES OF DEVICES IN FLOATING VECTOR AREA. 
(OC, TUS8,KL ,DLA/B/W,OP,0MA,0N,0MB,OR,PAR,PAP,LPD,DT,DX) 
(DLC/0/E,0J,0H,GT,VSV,LPS,0Q,KW,DU,DUP,DV/DM,LK ,DWN,DMC/R) 
(0Z,KMC,LPP,VM21,VM31,VTV,ORW,RL,TS,LPA,IP,KW,RX,ORW,ORB) 
COMP ,OPV,ML ,ISB,OMV,UNA,UDA,OMF ,PCL,VS100, TU81,KMV,KCT32) 
CIEX, OHV/DHU, OMZ32/CPI32C ASYN), CPI32(SYN),QNA,QVSS,LNV11) 

HE - HELP MESSAGE 

EX - EXIT COMMAND 


And will ask again "Option:". 


6.2.3 Invalid Response When Typing Device Counts. - The program will 
type: 


“That's not a valid number!” 
If an alphe character or negative value is entered. 
or 
“That's too many! Only XX allowed!” 


If a number greater than the maximum allowed for that device on a 
single syst2m is supplied. 


7.0 RESTRICTIONS 
None 


8.0 MISCELLANEOUS 


8.1 Using Other Than Console Terminal. 
Locations 700-706 contain the addresses of the terminal status buffer 


registers. To use another DL11-A just change these four (4) locations 
to the desired addresses. 


8.2 Delete Feature 


The character delete is proceeded and followed with a backslash on a 
hardcopy terminal. On a video terminal, the characters will be removed 
from the screen. 


8.3 Control/C, Control/Z, Control/S, Control/Q and Control/A 


SD Scientia he aetna or is RS 
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SEQ 0007 


Control C (tC) 
Program is restarted at 200 when a CNTRL/C is typed with program 
waiting for input. 


Control Z (tZ) 

Program is restarted at print when a CNTRL/Z is typed and will print 
the selected devices. It is a means of getting an abbreviated list of 
devices rather than going through the entire list during question and 
answer session. 


Control S (tS) 
When CNTRL/S is typed the program will stop printing and wait for a CNTRL/Q. 


Control Q (tQ) 
When a CNTRL/Q is typed the program will continue printing. 


Control A (tA) 

When a CNTRL/A is typed the program will back up one device on the list. 

It allows one to correct errors made during the question and answer session 
by backing up the list and changing the value assigned to the number of 
devices. 


8.4 ON11‘S AND PA611'S 


8.4.1 The DNil Can Have Four (4) Lines Per Block - (1 control 
module). Specify the number of controls. 


8.4.2 The PA611's Can Have Two (2) Readers/Punches Per Controller 
Specify the number-of controllers. 


8.5 CHANGES TO PROGRAM 
REVISION C INCLUDED THE FOLLOWING CHANGES. 


1. PROVISION HAS BEEN MADE TO ALLOW AT LEAST 2 DEVICES PER SYSTEM. 
NOT ALL DEVICES CAN BE EXPANDED TO THREE OR MORE WITHOUT MODIFICATIONS 
TO THE DEVICE HANDLER WITHIN THE PROGRAM. 


2. THE FOLLOWING DEVICES WERE ADDED: 
KMC11,LPP11, VMV21, VMV31,VTVOi,OWR70,RL11,RLV11 
TS11,TU80,LPA11,IP11,IP300,KW11-C,RESER,RX11 
RX211,RXV11,RXV21,0R11-W,0R11-8,D0MP11,0PV11,MLi1 
ISB11,D0MV11,UNA,UDA,RQDX1,D0MF32,KMS11,PCL11,VS100 
TU81 ,KMV11,KCT32,IEX,DHV11,DHU11 ,0MZ32,CPI32CASYNCH) 
CPI32C SYNCH) ,QNA,QVSS,VS31,LNV11 


3. THIS IS A LIST OF DEVICES WHICH HAVE ONE FIXED AND THE 


REMAINDER FLOATING CSR’S. 
RL11,RLV11,LPA11,RX11,RX211,RXV11,RXV21,UNA, UDA, RQDX1 


[RI an ee ae 
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TU81,QVSS 


4. THIS IS A LIST OF DEVICES WHICH HAVE TWO FIXED AND THE 
on a CSR's. 


Js yr made to make messages to operator easier to understand. 


s 
431 
432 
433 {RREEEREEREEEREEEREEEAERERAREAAEAEAEEAAEEEARAEEEEARE ARES EERE EE ES 
434 §22222222222222222 2222222222 222222222222 222222222222 2222222227222 
435 :* THE COMMENTS AND CODE BETWEEN THE #4844772777/!!!! teens 
436 ;* IS DEPENDENT ON THE DEVICES. THIS CODE SHOULD BE CHECKED AND 
437 ;* MODIFIED WHEN ADDING OR REMOVING A DEVICE FOR THE 
438 :* PROGRAM TO SUPPORT. 
439 i* 
440 ; STEPS TO ADDING A DEVICE: 
441 i 
442 ; 1. DETERMINE IF DEVICE IS A FLOATING CSR OR VA OR BOTH. 
443 ; IS THE 1ST ADDRESS FIXED? WHAT IS ITS RANK OF ORDER IN THE 
4ag ; FLOATING SCHEME? 
445 3 2. FOR FLOATING CSR ADDRESS DEVICES: 
446 ; A. ENTER THE DEVICE IN QT2,DT2,MT2,ASCDEV,DEVSTR, 
447 ; FATABL,Q??:, IN ITS RANK OF ORDER. 
448 ; B. ADD OR MODIFY ROUTINES WITHIN THE PROGRAM FOR 
449 ; SPECIAL CIRCUMSTANCES IN AREAS SUCH AS QUES,GFA,DONE. 
450 ; 3. FOR FLOATING VECTOR ADDRESS DEVICES: 
451 ; A. ENTER THE DEVICE IN QT1,D0T1,MT1,NAT,ADDRT, 
452 ; VST,DEVSTR,Q??, IN ITS RANK OF ORDER. 
453 ; B. ADD OF MODIFY ROUTINES WITHIN THE PROGRAM FOR SPECIAL 
454 ; CIRCUMSTANCES IN AREAS SUCH AS QUES,GFA,DONE. 
455 SEEEECSSUESCNEEC EPEC OE UEGEeOUGOeeeeeeueeegeegueeeeeggegguegggy 
456 {RRRERREERAEREEEEEAEERAREAREERAEEAREEEAAEEEEEEAE EERE EE EERE EEE EERE 
457 
458 000000 RO=80 sREGISTER DEFINITIONS 
459 000001 R1=s1 
460 000002 R2=82 
461 000003 R3=83 
462 000004 R4=84 
463 000005 R5=85 
464 000006 SP =86 
465 000007 PC=87 
466 000015 CR= 15 
467 000200 NOCRLF= 200 
468 000012 — LF= 12 
469 000126 Vs 126 
470 000001 BITO= 1 BIT DEFINITIONS 
471 . 000002 BITl= 2 
472 000004 BIT2= 4 
473 000010 BIT3= 10 
474 000020 BIT4= 20 
475 000040 BITS= 40 
476 00100 BIT6= 100 


SEQ 0008 
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SEQ 0009 
DEFINITIONS 

477 000200 BIT7= 200 
478 000400 BIT8= 400 
479 001000 BIT9= 1000 
480 002000 BIT10= 2000 
481 004000 BITi1= 4000 
482 010000 BITi2= 10000 
483 020000 BIT13= 20000 
484 040000 BIT14= 40000 
485 100000 BIT15= 100000 
486 104000 INPUT= 104000 sEMT‘S- GET INPUT 
487 104001 DATO= 104001 sDECIMAL ASCII TO OCTAL 
488 104002 ERRCK= 104002 sERROR CHECK 
489 104003 TYPE= 104003 ; 
490 104004 OTOA= 104004 sOCTAL TO OCTAL ASCII 
491 104005 SHIFT= 104005 sSPECIAL MULT & ADD 
492 104006 OTDA= 104006 sOCTAL TO DECIMAL ASCII 
493 104007 SHIFT1= 104007 sMULT BY 20 AND ADD GAP 
Boa 104010 SHIFT2= 104010 sMULT BY 40 AND ADD GAP 
495 104011 SHIFT3= 104011 sMULT BY 100 AND ADD GAP 
pie 104012 SHIFT4= 104012 sMULT BY 4 AND ADD GAP 
498 
499 -MACRO ERCHK OK sERROR CHECKING MACRO 
500 ERRCK sGO CHECK FOR ERROR 
501 BR OK sRETURN .+2 ON ERROR 
502 -ENDM 
503 
504 -MACRO PRINT ADR ;OUTPUT MACRO 
505 MOV ADR,RS sADDRESS TO RS 
506 TYPE 3GO TYPE IT 
507 -ENDM 
508 
509 -SBTTL BEGIN 
510 000000 -=0 sTRAP CATCHERS 
518 900030 -=30 
519 000030 002260 -WORD EMTHND ; 
4 000032 000000 -WORD O 

1 
S22 000042 -=42 ; sLWLO002 
523 000042 000000 -WORD 0 sLOCATION FOR XXDP STACK POINTER sLWLO002 
524 
525 000200 -=200 sSTART AT 200 
526 000200 000137 001000 JMP STARTA ; ACTUALLY 1000 
oH 000204 000137 001000 JMP STARTA sRESTART AT 204...MUST GOTO START FIRST TIME THROUGH. 
28 
529 000700 - 2700 
530 000700 177560 TRS: 177560 
531 000702 177562 TRB: 177562 
532 000704 177564 TPS: 177564 
hy 000706 177566 TPB: 177566 

4 
535 -LIST MEB 





-— 
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START 


001000 
010637 
000005 
012706 
012737 
012737 


012705 
104003 


012705 
104003 


012705 
104003 
012701 
104000 


121110 
001411 


062701 
020127 
001371 


012705 
104003 
000757 
112137 
112137 
112137 


000005 
012706 
012700 
012701 
005021 
005300 
001375 
005037 
005037 
005037 
005037 
005037 
005037 
005037 
005037 
005037 
005037 
005037 
005037 
005037 


000042 


000700 
001120 
002260 


015027 


015102 


015345 
012144 


000003 
012155 


015556 


012277 
012140 
006332 


001004 
000201 
010430 


011740 
011742 
011744 
011746 
011750 
011752 
011754 
011756 
011760 
011762 
011764 
011766 
011770 
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21 
STARTA: MOV 
START: RESET 


000206 MOV 
000030 
1$: PRINT 


B 
sLWLOO2 ADD 


4$: MOVB 





-SBTTL START 
000 


SP ,a042 


#TRS,SP 
@RES , 84206 
#EMTHND , 30 
#HELLO 
#HELLO,RS 


#HELP 
#HELP,RS 


#TERMQ 
#TERMQ,RS 


#TERMST,R1 


sSTORE THE XXDP STACK ADDRESS sLWLO002 

sINIT THE WORLD 

sSET THE STACK 

sSETUP RESTART ADDRESS 

s;SETUP EMULATOR TRAP 

IDENTIFY FLOAT sLWLO02 
sADDRESS TO RS 

:GO TYPE IT 

sHOW TO GET HELP sLWLO002 
sADDRESS TO RS 

:3GO TYPE IT 

sASK FOR TERMINAL TYPE 
sADDRESS TO RS 

;GO TYPE IT 

sFILL TABLE 


;GET IT 
CMPB (R1)+, CRO) WHICH ONE -A,L,V 


(R1),CRO) 

4$ 

#2,R1 

#3,R1 
_ 
#TERMQ2 
#TERMQ2,R5 


$ 
(R1)+, TERMTP 
(R1)+,FILCNT 


sWHICH ONE -A,L,V sLWLO02 
sFOUND IT 
sSKIP OVER FILL CHAR. AND COUNT 
sSKIP OVER TYPE,FILL CHAR. AND COUNT sLWLOO02 
sNO - END OF TABLE 
sNO MAYBE THE NEXT WILL MATCH 
sBAD INPUT --TELL HIM WHAT WE WANT 
sADDRESS TO RS 
:GO TYPE IT 
sAND DO IT AGAIN 
sSTORE TERMINAL TYPE sLWLO002 
;SET FILL CHARACTER 
s;SET FILL COUNT 


; THIS ROUTINE CLEARS OUT THE DEVICE DATA TABLE. 
RES: RESET 


1$: CLR 


sLWLOO02 PRINT 


#HEAD 
; s GET THE OPTION AND SETUP THE POINTERS FOR IT 


#START ,SP 


#DEVCNT#2.+1,RO ;# OF LOCATIONS TO CLEAR 


#0C,R1 


sSTART OF DATA TABLE 
sCLEAR IT! 

sDECREMENT COUNT 

3D0 AGAIN IF NOT EQUAL 
sCLEAR PROGRAM CONDITION BITS 

DM11-A AND DV11 WERE SELECTED PRINT DVMES 
IF DVil WERE DECREASED PRINTS DVMSS 

sIF OV11 WERE DECREASED TO ZERO PRINT DVNMS 

;IF PA611-P AND LPD11 WERE SELECTED PRINT LPDMES 
sIF LPD11 WERE DECREASED TO ZERO PRINT LPDMSS 
sIF PA611-R AND VTVO1 WERE SELECTED PRINT VO1MES 
sIF VTVO1 WAS DECREASED PRINT VO1MSS 

;USED FOR CONTROL A 

sUSED FOR THE SELECTION OF DC11 AND DL11-A 

;IF LPD11 WAS DECREASED PRINTS LPDESS 

sUSED IF PA611-R, PA611-P OR LPD11 WAS SELECTED 
sFOR PRINTING CSRVEC HEADER sLWLO02 
s;TITLE-ASK OPTION 


ran 
wn 






SEQ 0010 
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START 
586 


587 


ae 


091230 


001322 





012705 
104003 


012705 
104003 
104000 
021027 
001425 
021027 
001434 
021027 
001413 
021027 
001404 


012705 
104003 
000754 


013706 
000207 
000000 


012705 
104003 
000741 


042737 
012703 
012702 
012701 
000411 


052737 
012703 
012702 
012701 


012737 


012705 
04003 


011305 





014612 


014643 


040526 
040506 
042510 
054105 


015556 


000042 


015102 


000200 
006362 
006562 
007204 


000200 
006762 
007072 
007406 


000001 
012210 


011740 


011740 


011760 





OPTION: 


OP TNA: 


PRINT 
MOV 
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#0P 
#0P,R5 


#0P2 
#0P2,R5 
CRO), @"VA 
6$ 

(RO), @"FA 
7$ 

(RO), @“HE 
5$ 
ital 


4 
#TERMQ2 
#TERMQ2,R5 


OPTNA 


; GET HELP OR EXIT 


F 
4$: 


5$: 


; SETUP 
3 


6$: 


; SETUP 
3 
7$: 


; ASK FOR THE NUMBER OF DEVICES. 


QUES: 


POINTERS FOR THE ‘VA‘ 


BIC #BIT7,FLAG 
MOV #QT1,R3 

MOV #0T1,R2 

MOV @MT1,R1 

BR 8$ 

POINTERS FOR THE ‘FA‘ 
BIS #BIT7,FLAG 
MOV #QT2,R3 

MOV #0T2,R2 

MOV #T2,R1 


MOV 
PRINT 
MOV 
TYPE 
PRINT 
MOV 


#42 ,SP 
PC 

#HELP 
@HELP,RS 
OPTION 


#1,FLAG8 
#Q 
#Q,R5 


(R3) 
CR3),R5 


SEQ 0011 
sASK OPTION ;LWLO02 
sADDRESS TO RS 
;GO TYPE IT 
;SKIP FIRST LINE ;LWLOO2 
sADDRESS TO RS 
;GO TYPE IT 
;sWHICH OPTIN? 
sVECTORS AND ADDRESSES 
;BR IF YES 
sFLOATING ADDRS ONLY 
;BRANCH IF MATCH 
sHELP? ;LWLOO2 
3BR IF YES ;LWLOO02 
;EXIT? ;LWLO002 
;BR IF YES ;LWLO002 
:NO MATCH - TELL WHAT THEY ARE 

sADDRESS TO RS 
:GO TY°E IT 
;AND TRY AGAIN ;LWLOO02 
;GET THE XXDP STACK ADDRESS ;LWLO002 
sRETURN TO XXDP ;LWLOO2 
sSHOULDN’T GET HERE ;LWLO002 
sPRINT HELP MESSAGE ;LWLO02 
sADDRESS TO R5 
3GO TYPE IT 
sASK OPTION AGAIN ;LWLO0O02 
OPTION 
sDOING THE ‘VA‘ OPTION 


OPTION 
3‘FA‘ OPTION 
sTABLE 2 
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sR3<=Q TABLE ! 

sR2<=DATA TABLE 1 
3R1<=MAXIMUM NUMBER TABLE 1 
sSTART THE QUESTIONS 


30K TO USE CONTROL A 
sSTART QUESTIONS HERE. 
sADDRESS TO RS 

GO TYPE IT 

sTYPE DEVICE NAME 
sACDRESS TO R5 


_—- 
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START 


632 


Ro i ca ei 


001412 
001414 
001414 
001420 
001422 
001424 
001426 
001426 
001430 
001432 


001434 
001436 
001440 
001442 
001444 
001444 
001450 
001452 
001452 
001456 


104003 


012705 
104003 
104000 
104001 


104002 
000401 
000766 


010032 
022123 
005711 
001362 


012705 
104003 


012705 
104003 


012737 
012737 
012700 
012701 
012702 
012021 
005721 
005302 
001374 
012700 
012702 
012203 
001406 
011063 
011301 
000240 
000137 
000137 


020327 
001003 
005701 
001401 
005301 


015024 


014510 


014510 


000300 
160010 
007720 
010432 
000100 


012034 


007072 


000002 


001554 
002346 


010660 
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012030 
012034 





SEQ 0012 
TYPE :GO TYPE IT 
PRINT #QMARK sAPPEND WITH ‘?' 
MOV @QMARK ,RS sADDRESS TO RS 
TYPE GO TYPE IT 
INPUT sHOW MANY? 
DATO sCONVERT TO OCTAL 
ERCHK 2$ sANY ERRORS? 
ERRCK GO CHECK FOR ERROR 
BR 2s sRETURN .+2 ON ERROR 
BR QUES sYES!! - ASK AGAIN! 
2s: MOV RO,@(R2)+ sSTORE ANSWER 
CMP (R1)+,CR3)+ sUPDATE POINTERS 
TST (R1) sEND OF LIST? 
BNE QUES s THERES MORE 
PRINT: PRINT #CRLF sEND OF QUESTIONS 
MOV @CRLF RS sADDRESS TO RS 
TYPE :GO TYPE IT 
PRINT @CRLF ; 
MOV @CRLF,RS sADDRESS TO RS 
TYPE :GO TYPE IT 
-SBTTL GET FIRST ADDRESS 
; THIS ROUTINE LOADS THE STARTING ADDRESS INTO THE DEVICE DATA TABLE 
; FOR ALL DEVICES ( 0 FOR FLOATING ADDRESS DEVICES ). 
i 
GFA: MOV #300, VECTOR sFIRST FLOATING VECTOR STARTS AT 300 
MOV #160010, ADDR ; ADDRESSES START AT 160010 
MOV @ADDRT ,RO sRO<=ADDR. TABLE 
MOV @0C+2,R1 sR1<=DEVICE ADOR.DATA TABLE 
MOV @DEVCNT ,R2 sR2<=NUMBER OF DEVICES 
1$: MOV CRO)+, CRI) sSET-UP FIRST ADOR.IN DEV.DATA TABLE 
TST (R1)+ sR1+2-2 WORDS/DEVICE 
DEC R2 ;ONE LESS TO DO 
BNE $ 300 IT AGAIN? 
MOV ADDR, RO ; CURRENT ADDRESS LOCATION 
MOV #0T2,R2 ; FLOATING DEVICE TABLE POINTER 
TAG3: MOV cR2)+, R3 sDEVICE DATA POINTER 
BEQ sBRANCH IF NO MORE 
MOV BRO, 2(R3) sSTORE ADDRESS 
MOV OR3,R1 sGET DEVICE COUNT 
= xt sBRANCH TO 2$ IF NO SPACES WANTED BETWEEN DEVICES. 
4$: JMP DONE sDONE CALCULATING FIRST ADDRESSES 


sCHECK FOR SPECIAL DEVICES. RESR IS NOT USED BUT MUST HAVE A SPACE OF 10 FOR FA. 
RQOX1,UDA, TU81 BOTH HAVE ONE 
sSTANDARD ADDRESS AND VECTOR. THE REST ARE FLOATING. THE LPA11 AND QVSS HAVE ONE 
sSTANDARD ADDRESS AND THE REST ARE FLOATING. THE DR11-B HAS A STANDARD ADDRESS 
sAND STANDARD VECTOR FOR THE FIRST. THE NEXT HAS A STANDARD ADDRESS AND FLOATING 


sRL11, RLV11, RX11, RX211, RXV1i1, RXV21, UNA, 


sVECTOR, THE REST ARE FLOATING ADDRESSES AND VECTOR. 


NEXT: CMP + tame sIS IT RESERVED 


sBRANCH IF NOT 


TST R1 sCHECK IF RESERVED WAS SELECTED 
BEQ 40$ sBRANCH IF NOT 
DEC R1 sDEC RESERVED SO IT WILL LEAVE A GAP 





rr 


FLOAT - ADDRESSES AND VECTORS 
GET FIRST ADDRESS 
680 001570 


-— 


681 





001574 


020327 


010634 


010664 


010644 


010674 


010724 


010730 


010754 


011014 


010520 
010620 
010644 
010720 
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40$: CMP R3, RL 
BNE 41$ 
TST R1 
BEQ 41$ 
DEC Ri 
41$: CMP R3, ORX 
BNE 42$ 
TST R1 
BEQ 42$ 
DEC R1 
423: CMP R3, @LPAK 
BNE 43$ 
TST R1 
BEQ 43$ 
DEC 
43%: CMP R3,@0RB 
BNE 4as 
TST Ri 
BEQ 44$ 
DEC Ri 
TST R1 
BEQ 44s 
DEC R1 
44$ CMP R3,@UNA 
BNE A$ 
TST R1 
BEQ UDA$ 
DEC R1 
UDA$: CMP R3,@UDA 
BNE TU81$ 
TST Ri 
BEQ TU81$ 
DEC 1 
TU81i$: CMP R3,@TU81 
BNE Qvss$ 
TST 1 
BEQ QVSS¢ 
DEC 1 
QVSS$: CMP R3,@QVSS 
BNE 
TST R1 
BEQ 5$ 
DEC R1 


Page 2-3 


s1S IT THE RLi1 
sBRANCH IF NOT 

sCHECK IF ANY RL11 WERE SELECTED 
sBRANCH IF NOT 

sDEC FOR STANDARD ADDRESS AND VECTOR 
:1S IT THE RXi1 

:BRANCH IF NOT 

sCHECK IF ANY RX11 WERE SELECTED 
sBRANCH IF NOT 

:DEC FOR STANDARD ADDRESS AND VECTOR 
s1S IT THE LPA11-K 

sBRANCH IF NOT 
sCHECK IF ANY LPA11-K WERE SELECTED 
sBRANCH IF NOT 

sDEC STANDARD ADDRESS 

sIS IT THE OR11-8 

sBRANCH IF NOT 

sCHECK IF ANY DR11-B8 WERE SELECTED 
sBRANCH IF NOT 

:DEC FOR STANDARD ADDRESS AND VECTOR 
sCHECK IF A SECOND DR11-B WAS SELECTED 
;BRANCH IF NOT 

sDEC FOR SECOND STANDARD ADDRESS 

sIS IT THE DEUNA 

sBRANCH IF NOT 

sCHECK IF ANY DEUNA WERE SELECTED 
sBRANCH IF NOT 

sDEC FOR STANDARD ADDRESS AND VECTOR 
s1S IT THE UDA 

sBRANCH IF NOT 

sCHECK IF ANY UDA WERE SELECTED 
sBRANCH IF NOT 

:DEC FOR STANDARD ADDRESS AND VECTOR 
sIS IT THE TU81 

:BRANCH IF NOT 

sCHECK IF ANY TU81 WERE SELECTED 
sBRANCH IF NOT 

sDEC FOR STANDARD ADDRESS AND VECTOR 
sIS IT THE QVSS 

sBRANCH IF NOT 

CHECK IF ANY QVSS WERE SELECTED 
sBRANCH IF N 

‘DEC FOR STANDARD ADDRESS 


§ 96666466666 666666646606666 06 6666 60606060666466464604664664064644444646 


22222222222222222222222222222222222222222222222222222 2222222222 
; DO A CHECK FOR THE DEVICES THAT DON’T ADDRESS-UP BY 10 


S$: CMP R3, DH 
BEQ TAG1 
CMP R3,eV31 
BEQ TAG1 
CMP R3, OLPAK 
BEQ TAG1 
cmp R3, @OMV 
BEG TAG1 


s OH11 - 20 
s VMV31- 20 
; LPAK - 20 
; OW - 20 





SEQ 0013 








737 001766 
738 001772 
739 001774 
740 002000 
741 002002 
742 002006 
743 002010 
744 

745 

746 

747 002014 
748 002016 
749 002022 
750 002024 
751 002030 
752 002034 
753 002040 
754 002042 
755 002046 
756 002052 
757 002056 
758 002060 
759 002064 
760 0C2070 
761 002074 
762 002076 


765 002102 
766 002106 
767 002110 
768 002114 
769 002116 
770 002122 
771 002124 
772 002130 
773 002132 
774 002136 
775 002140 


So aeenneeieEEnEEE 


FLOAT - ADDRESSES AND VECTORS 
GET FIRST ADDRESS 


020327 
001425 
020327 
001410 
020327 
001410 
000137 


104005 
000137 
104012 
000137 
004737 
011063 
104007 
000137 
004737 
011063 
104010 
000137 
004737 
011063 
104011 
000137 


020327 
001750 
020327 
001742 
020327 
001742 
020327 
001737 
020327 
001743 
020327 
001740 
020327 
001744 
000137 


006301 
006301 
006301 
006301 
006301 
006301 
020327 
001423 
020327 
001420 
020327 
001003 
032701 


010734 
010730 
010740 
002102 


001530 
001530 
005764 
000002 
001530 
006004 
000002 
001530 
006042 
000002 


001530 


010750 
010754 
010760 
010774 
011000 
011004 
011014 
002014 


010724 
010750 
010730 
000004 











MACRO YOS.02 Thursday 23-May-85 10:38 Page 2-4 


SEQ 0014 


: OMF32- 40 
; UDASO- 4 
; KMS11- 20 


PUTTESTT TTT TOT TTT TTT TT ET TT TT TTET TTT T TTC TEST TTT TTT Ieee TTT TTT Tee 


TAG4: 


TUS: 


TAG1: 


TAG2: 


QvS$: 


TAG: 


; 

SSHIF3: 
SSHIFe: 
SSHIF 1: 
SSHIFT: 
SSHIF4: 


SHIFT 
JM 


TAGS 

TAGS 

PC BITE 
ORO, 2CR3) 
TAG3 

PC BITE 
ORO, 2CR3) 
TAG3 

PC .BITE2 
ORO, 2(°R3) 


TAG3 


——" 


R3, @0MZ32 
TAG2 
R3,e@CPI32 
TAG2 


Be te recta Pe Rae WN A ee ee ee EY CRE 


sCALCULATE NEXT DEVICE ADDRESS 
sPROCESS NEXT 

sCALCULATE DEVICE ADDRESS BY 4 
sPROCESS NEXT 

sMAKE ADDR. DIVISIBLE BY 20 
sSTORE IT 

320 BYTES/UNIT 


; 

sMAKE ADDR. DIVISIBLE BY 40 
sSTORE IT 

340 BYTES/UNIT 


‘ 

sMAKE ADDR. DIVISIBLE BY 100 
sSTORE IT 

3100 BYTES/UNIT 
3 


; VS100- 20 
; TU81 - 4 

; KMV11- 20 
; DHV11- 20 
; DMZ32- 40 
; CPI32- 40 
; QVSS - 200 


sMULT. BY 100 OCTAL 
sMULT. BY 40 OCTAL 
sMULT. BY 20 OCTAL 
sMULT. BY 10 OCTAL 
sMULT. BY 4 OCTAL 


;IF UNA LEAVE GAP OF 4 
sFOR THE UDA 

sIF VS100 LEAVE GAP OF 4 
sFOR THE TU81 

;IF UDA CHECK FOR BIT 2 
sBRANCH IF NOT 

sCHECK IF EVEN 





~- RR rr S S 
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SEQ 0015 
GET FIRST ADDRESS 
794 002222 001412 BEQ GAP sMAKE IT EVEN 
795 002224 020327 010754 GAP3: CMP R3,4TU81L :IS IT THE DMF 
796 002230 001003 BNE GAP1 :IF NOT BRANCH 
797 002232 032701 000004 BIT #4,R1 sCHECK FOR BIT 2 
798 002236 001404 BEQ GAP sMAKE IT EVEN 
799 002240 062701 000010 GAP1L: ADD #10,R1 :ADD GAP OF 10 
800 002244 060110 ADD R1,9RO sADD TO LAST ADDR. 
801 002246 000v02 RTI sRETURN 
802 002250 062701 000004 GAP: ADD $4,R1 :ADD GAP OF 4 
803 002254 060110 ADD R1,8RO ;ADD TO LAST ADDR 
oon 002256 000002 RTI sRETURN 
0 H 
- 3 R 4 43 OEsetrReoervredii4yy 
3 
808 002260 011604 EMTHND: MOV (SP),R4 3 
809 002262 014404 MOV -(R4),R4 ;GET THE EMT 
810 002264 042704 177600 BIC #177600,R4 sSTRIP EMT BITS 
811 002270 006304 ASL R4 sMAKE IT A WORD 
812 002272 000174 002276 JMP SEMTTABCR4 ) :GO TO IT 
813 002276 005230 EMTTAB: SINPUT sSUBROUTINE INPUT 
814 002300 005636 SDATO F i DECIMAL ASCII TO OCTAL 
815 002302 002324 SERRCK 3 “4 ERROR CHECK 
816 002304 006200 STYPE ; > TYPE 
817 0C2306 004752 SOTOA : OCTAL TO OCTAL ASCII 
818 002310 002166 SSHIFT 3 1 MULT. & ADD 
819 002312 006116 SOTDA : ° OCTAL TO DECIMAL ASCII 
620 002314 002164 SSHIF 1 : id MULT. BY 20 AND ADD GAP 
$21 002316 002162 SSHIF2 Fy Ms MULT. BY 40 AND ADD GAP 
822 002320 002160 SSHIF3 3 sd MULT. BY 100 AND ADD GAP 
ay 002322 002170 SSHIF4 : " MULT. BY 4 MAKE EVEN ADD GAP 
8 F 
825 3 
38 | 
828 002324 005737 011740 SERRCK: TST FLAG sWAS ERROR FLAG SET 
829 002330 100005 BPL 1$ sPLUS - NO ERROR 
830 002332 062716 000002 ADD #2,(SP) sERROR! RETURN TO ERROR ROUTINE. 
831 002336 042737 100000 011740 BIC #BIT15,FLAG ;CLEAR ERROR CONDITION 
ro 002344 000002 18: RTI sRETURN 
833 
0 -SBTTL COMPUTE THE ADDR. ,JUMPERS AND VECTORS 
8 F 
836 ; THIS ROUTINE PRINTS THE DEVICE NAME ,IT’S ADDRESS , AND VECTOR/ 
837 ; JUMPER. THEN COMPUTES THE NEXT ADDRESS IF MORE THEN ONE EXISTS, 
838 ; PRINTS IT IF IT DOES , OR IF NOT, CHECKS TO MAKE SURE THIS DEVICES 
839 + EXISTANCE DOES NOT AFFECT THE FOLLOWING DEVICE‘S ADDRESS OR VECTOR. 
840 ; 
841 ; 
nat ; FIRST SETUP FOR THE OPTION 
3 
844 002346 005037 012142 DONE : CLR SPEC ;CLEAR SPECIAL FLAG 
845 002352 105737 011740 TSTB FLAG sWHICH OPTION? 
846 002356 100047 BPL i$ ;BRANCH FOR ‘VA‘ 
ot 002360 012702 010320 MOV #ASCDEV,R2 sR2<sASCII DEVICE POINTER TABLE 
B49 SPHERE AEEEEEEEAKEKAEEEALEREASAEABELEAAAAARASAAALALEALELALALS EERE 


&50 22222222222222222222222222222222222222222222222222222222222222? 








868 002440 
869 002444 
870 002450 
871 002454 
872 002460 


877 002464 
878 002470 
879 002474 
880 002476 
881 002502 
882 002506 
883 002510 
884 002512 
885 002514 
886 002516 
887 002522 
888 002524 
889 002526 
890 002532 
891 002534 
892 002540 
893 002542 

002542 

002546 
894 002550 
895 002554 
896 002556 

002556 

002562 
897 002564 

002564 

002570 
898 002572 
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.» JUMPERS AND VECTORS 


012701 
010137 
010137 
010137 
010137 
010137 
010137 
010137 
010137 
010137 
010137 
010137 
010137 
010137 
010137 
010137 


FLOAT - ADDRESSES AND VECTORS 
COMPUTE THE ADOR 
851 
852 
853 
854 
855 
856 
857 002364 
858 002370 
859 002374 
860 002400 
861 002404 
862 002410 
863 002414 
864 002420 
865 002424 
866 002430 
867 002434 


012701 
012700 
000405 
012702 
012701 
005000 
005721 
001031 
022022 
022127 
001372 
005742 
021127 
001366 
005737 
001403 


012705 
104003 
005737 
001403 


012705 
104003 


012705 
104003 
000137 


177777 
010526 
010532 
010536 
010546 
010562 
010572 
010626 
010642 
010652 
010712 
010746 
010766 
010772 
011012 
011026 


010514 
000032 


006362 


010430 


177777 


177777 
011752 


017753 
011746 


020151 


014503 
001120 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 





#-1,R1 
R1,GT+2 
R1,VSV+2 
R1,LPS+2 
R1,KWWe2 
R1,0Ve2 
R1,DWUN-2 
R1,VO1+2 
R1,7TS11+2 
R1,IP+2 
R1,ML+2 
R1,PCL+2 
R1,KCT32+2 
R1, IEX+2 
R1,QNA+2 
R1,LNV+2 


SET THE DEVICE ADDRESS TO A MINUS ONE IF IT FOLLOWS THE DJ AND 

IS NOT A FLOATING ADDRESS DEVICE. FOR THOSE DEVICES THAT ARE A COMBINATION, 
SPECIAL HANDLING IS REQUIRED TO LIST THE STANDARD CSR ADDRESS 

AND VECTOR ADDRESS AND THEN LIST THE FLOATING RANGE FOR EACH. 


sIF ADDRESS=-1 THEN 

sTHE DEVICE IS SKIPPED 
37S11,IP11,ML11,PCL11,KCT32, IEX,QNA,LNV11 
sHAVE STANDARD ADDRESS 


50 06600000000600000000000000000000000000000000000000000000000888 


DONE 1: pha 


378: TST 


SERRE EEAEEEAEARAEAEEASEEAEEAEAAEASEAARARALESEAALEASAASRAKLELELELES 


#0J,R1 
#0J-0C/2,R0 


(R1)+,@-1 


@LPDMSS 


#DVNMS 
#DVNMS ,RS 


#END 
#END,RS 


RES 


:0J IS FIRST FOR ‘FA‘' OPTION 
:SET OFFSET INTO ‘N’EXT ‘A‘DOR.‘T’ ABLE 
;SET TO PROCEED!! 
;USE THE SAME TABLE AS FOR THE QUESTIONS 
3Ri<=START OF DATA TABLE 
3:0 OFFSET INTO NAT 
;D0 WE HAVE ANY? 
;BR IF YES 
sINC POINTERS 
;D0 WE SKIP THIS ONE? 
sNO (TWO -1'S TOGETHER IS END OF LIST) 
;BACKUP FOR THE ‘FA’ OPTION 
sANOTHER -1 IS THE END!!!! 
sBRANCH IF SOME MORE! 
;CHECK TO SEE IF LPD1i1 WERE DECREASED TO ZERO 
;BRANCH IF NOT 
s;PRINT THE MESSAGE 
sADDRESS TO RS 
;GOQ TYPE IT 


sCHECK TO SEE IF THE DV11 WERE DECREASED TO ZERO 


;BRANCH IF NOT 
sPRINT MESSAGE 
sADDRESS TO RS 
:GO TYPE IT 
; #eeee% THE END «040% 
sADDRESS TO RS 
3GO TYPE IT 
sRESTART-CACT-11 PATCH SHOULD GO HERE!) 






SEQ 0016 




















012737 


020127 
001105 
005737 
001502 
005737 
001477 
012737 
013737 
006337 
006337 
006337 
032737 
001403 
062737 
032737 
001406 
062737 
063737 
013737 
005337 
006337 
006337 
006337 
006337 
006337 
063737 
022737 
103014 
012737 
005337 
005737 
001401 
000741 
012737 


020127 
001007 
005737 
001404 


010432 
010430 
010434 
000001 


010446 
010444 
010560 


000001 
010444 
012044 
012044 
012044 
000010 


000010 
000020 


000020 
012044 
010560 
012046 
012046 
012046 
012046 
012046 
012046 
012044 
000140 


000001 


010560 
010560 


000001 


010466 
010464 


FLOAT - ADDRESSES AND VECTORS 
COMPUTE THE ADDR.,JUMPERS AND VECTORS 

902 

903 

904 

905 

906 

907 002576 020127 

908 002602 001011 

909 002604 005737 

910 002610 001406 

911 002612 005737 

912 002616 001403 
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011762 


011742 
012044 


012044 


012044 
012044 


012044 


010562 
012046 


012046 
012046 


011744 


011746 


SEQ 0017 


§2222222222222222222 22222222 2222222222 222222 2222222222222227272222 
; SPECIAL DEVICE DEPENDENT ROUTINES FOR ADDRESS. 


3* CHECK IF DC1i AND DL11-A WAS SELECTED 


H 
2s: 


7* DV1i1 
3 
9$: 


33$: 


35%: 


ADDRESS 


CMP 
BNE 


— 


$ 
#1,FLAG9 


sCHECK IF IT IS THE DC1i1 
sBRANCH IF NOT 

sCHECK IF DCil WERE SELECTED 
sBRANCH IF NOT 

sCHECK IF DL11-A WERE SELECTED 
sBRANCH IF NOT 

sSET FLAG FOR DC11 AND DL11-A 


DEPENDS ON DM11-A ADDRESS 


R1,4DMA+2 
17$ 


#1,FLAGL 
DMA, SAVES 
SAVE3 
SAVE3 
SAVE3 
#10, SAVE3 
33$ 


#10, SAVE3 
#20,SAVE3 
34$ 

#20, SAVES 
SAVE3,DV+2 
DV, SAVE4 
SAVE4 
SAVE4 
SAVE4 
SAVE4 
SAVE4 
SAVE4 


SAVES, SAVE4 


#140, SAVE4 
17$ 
#1,FLAG2 

V 


#1,FLAG3 


sCHECK IF IT IS THE DM11-A? 

BR IF NOT 

sCHECK IF DM11-A WERE SELECTED 

sBRANCH IF NOT 

sCHECK IF DV1i WERE SELECTED 

sBRANCH IF NOT 

sSET FLAG THAT DM11-A AND DV11 WERE SELECTED 
;GET THE NUMBER OF DM11-A SELECTED 

FORM NEW ADDRESS FOR DV11 


;CHECK IF BIT THREE IS SET 

sBRANCH IF NOT 

sADD 10 TO MAKE IT EVEN 

sCHECK IF BIT FOUR IS SET 

sBRANCH IF NOT 

sADD 20 TO BE ON RIGHT BOUNDRY AND SAVE 
sSTORE NEW ADDRESS 

sGET NUMBER OF DV11 SELECTED 

sDEC BECAUSE SAVE3 HAS FIRST DV11 ADDRESS 
sFORM ADDRESS OF LAST DV11 


sADD FIRST ADDRESS TO FORM LAST ADDRESS 
;CHECK TO SEE IF IT IS TO HIGH 

sBRANCH IF NOT 

sSET FLAG THAT DV11 HAVE BEEN DECREASED 
sDECREMENT NUMBER THAT WAS SELECTED 

sCHECK TO SEE IF ANY LEFT 

:BRANCH IF NOT 

3GO BACK AND TRY AGAIN 

sSET FLAG THAT DV11 WERE DECREASED TO ZERO 


; 
3* VTVO1 ADDRESS IS AFTER THE PA6-11R'S 


3 
17$: 


CMP 
BNE 


R1,#@PAR+2 
47$ 


s;CHECK IF THE PA6-11R 
sBRANCH IF NOT 

sCHECK IF ANY PA6-11R WERE SELECTED 
sBRANCH IF NOT 
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COMPUTE THE ADDR.,JUMPERS AND VECTORS 
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SEQ 0018 





959 003062 012737 000001 011766 MOV #1,FLAGI1 ;SET FLAG FOR PAR SELECTION 

960 003070 000431 BR 49$ sBRANCH TO FORM VTVO1 ADDRESS 

961 003072 020127 010472 47$: CMP R1,@PAP+2 sCHECK IF THE PA611-P 

962 003076 001012 BNE 48$ ;BRANCH IF NOT 

963 003100 005737 011766 TST FLAGI1 ;CHECK IF VTVO1 ADDRESS HAS BEEN FORMED 
964 003104 001050 BNE 45$ :;BRANCH IF YES 

965 003106 005737 010470 TST PAP sCHECK IF ANY PA611-P WERE SELECTED 

966 003112 001404 BEQ 48$ ;BRANCH IF NO 

967 003114 012737 000001 011766 MOV #1,FLAGI1 :SET FLAG FOR PAP SELECTION 

968 003122 000414 BR 49$ ;BRANCH TO FORM VTVO1 ADDRESS 

969 003124 020127 010476 48$: CMP R1,@LPD+2 sCHECK IF LPD11 

970 003130 001036 BNE 45$ sBRANCH IF NOT 

971 003132 005737 011766 TST FLAGI1 sCHECK IF VTVO1 ADDRESS HAS BEEN FORMED 
972 003136 001033 BNE 4s$ :BRANCH IF YES 

973 003140 005737 010474 TST LPD ;CHECK IF LPD11i WERE SELECTED 

974 003144 001430 BEQ 45$ ;BRANCH IF NO 

975 003146 012737 000001 011766 MOV #1,FLAGi1 ;SET FLAG FOR LPD1i1 SELECTION 

976 003154 005737 010624 49$: TST vo1 sCHECK IF ANY VTVO1 WERE SELECTED 

977 003160 001422 BEQ 45$ ;BRANCH IF NOT 

978 003162 005737 011766 TST FLAGI1 ;CHECK IF PAR, PAP OR LPD WERE SELECTED 
979 003166 001417 BEQ 45$ sBRANCH IF NOT 

980 003170 012737 000001 011754 MOV #1,FLAG6 ;SET FLAG THAT PA6-11R WERE SELECTED 
981 003176 062737 000160 010626 ADD #160,VO1+2 sFORM NEW ADDRESS FOR VTVO1L 

982 0C3204 022737 000002 010624 CMP #2,V01 ;CHECK FOR TWO VTVO1 

983 003212 001005 BNE 45$ sBRANCH IF NOT 

984 003214 012737 000001 011756 MOV #1,FLAG7 ;SET FLAG THAT VTVO1S WERE DECREASED 
985 003222 005337 010624 DEC ;DECREASE VTVOiS 

986 F 

= 4 ;* LPD11 ADDRESS IS AFTER THE PA6-11P'S 

88 3 

989 003226 020127 010472 45$: CMP R1,#PAP+2 ;CHECK IF THE PA611-P 

990 003232 001063 BNE 10$ ;BRANCH IF NOT 

991 003234 005737 010470 TST PAP sCHECK IF PNY PA611-P WERE SELECTED 

992 003240 001460 BEQ 10$ ;BRANCH IF NOT 

993 003242 005737 010474 TST LPD ;CHECK IF ANY LPDi1 WERE SELECTED 

994 003246 001455 BEQ 10$ sBRANCH IF NOT 

995 003250 012737 000001 011750 MOV #1,FLAG4 ;SET FLAG THAT PA611-P AND LPD11 WERE SELECTED 
996 003256 013737 010470 012050 MOV PAP, SAVES ;GET THE NUMBER OF PA611-P SELECTED 

997 003264 006337 012050 ASL SAVES sFORM ADDRESS OF LPD11 

998 003270 006337 012050 ASL SAVES 

999 003274 006337 012050 ASL SAVES 
1000 003300 063737 012050 010476 ADD SAVES, LPD+2 ;ADD ADDRESS TO TABLE 
1001 003306 013737 010474 012052 29%: MOV LPD,SAVE6 :;GET NUMBER OF LPDi1 
1002 003314 005337 012052 DEC SAVE6 sDECREMENT BECAUSE LPD+2 HAS FIRST ADDRESS 
1003 003320 006337 012052 ASL SAVE6 ;FORM NEW ADDRESS 
1004 003324 006337 012052 ASL SAVE6 
1005 003330 006337 012052 ASL SAVE6 
1006 003334 063737 012050 012052 ADD SAVES, SAVE6 ;ADD FIRST ADDRESS TO FORM LAST ADDRESS 
1007 003342 022737 000070 012052 CMP #70, SAVE6 ;CHECK TO SEE IF IT IS TOO HIGH 
1008 003350 103014 BHIS 10$ ;BRANCH IF NOT 
1009 003352 012737 000001 011764 MOV #1,FLAG10O ;SET FLAG THAT LPD11 WERE DECREASED TO ZERO 
1010 003360 005337 010474 DEC LPD ;DECREASE LPD : 
1011 003364 005737 010474 TST LPD ;CHECK TO SEE IF ANY ARE LEFT 
1012 003370 001401 BEQ 36$ ;BRANCH IF NOT 
1013 003372 000745 BR 29$ ;GO BACK AND TRY AGAIN 
aes 003374 012737 000001 011752 36%: MOV #1,FLAGS ;LPD11 WERE DECREASED TO ZERO 








FLOAT - ADDRESSES AND VECTORS 
COMPUTE THE ADDR.,JUMPERS AND VECTORS 


1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 


1028 
1029 


1030 
1031 
1032 
1033 
1034 


1035 
1036 
1037 
1038 
1039 


1040 
1041 
1042 


1043 
1044 
1045 


1046 
1047 
1048 


1049 
1050 
1051 


1052 
1053 
1054 


105737 
100406 


012705 
104003 
052737 


012205 
104003 
020127 
001006 
005737 
001403 


012705 
104003 
020127 
001022 
005737 
001403 


012705 
104003 
005737 
001403 


012705 
104003 
005737 
001403 


012705 
104003 
020127 
001021 


012705 
104003 
005737 
001403 


012705 
104003 
005737 
001403 


012705 
104003 


011770 
015746 
000200 
010436 


011762 


020772 
010476 
011750 


017335 
011764 


017542 
011752 


017335 
010562 


016121 
011742 


016716 
011744 


017121 





SEED ¢ 
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SEQ 0019 


SRRARREREEERERAEEEEERRERERAEAEREAEAARAREAEEAREEEEREREEEERE REESE 
$222222222222222222222 222222222222 2222272222222272222222222222227 
; CHECK HERE FOR A DEVICE THAT NEEDS A COMMENT TYPED. 


+ DURING THE PRINT ROUTINE, THE O0L11,LP011,0V11,VTVO1,RL11,7S11,LPA11, IP11 
+ RESER,RX11,0R11-B8,ML11,UNA,UDA,KMS11,TU81,QVSS 

; WILL PRINT OUT STANDARD CSR AND VECTOR ADDRESSES 

s AND THEN LIST THE FLOATING VALUES FOR 

; ADDITIONAL DEVICES REQUESTED BY OPERATOR. 


10$: TSTB FLAG12 sHAVE WE BEEN THROUGH ONCE? sLWL002 
BMI 4s ;IF YES, BRANCH sLWLO002 
PRINT  #CSRVEC ;'CSR VECTOR ‘HEADER sLWLO002 
MOV #CSRVEC,RS sADDRESS TO RS 
TYPE ;GO TYPE IT 
011770 BIS #BIT7,FLAGI2 sWE‘VE BEEN THRU HERE sLWLO002 
4$: PRINT (R2)+ sTYPE DEVICE NAME 
MOV CR2)+,R5 sADDRESS TO RS 
TYPE :GO TYPE IT 
CMP R1,#DL+2 sIS IT THE DC1i1i 
BNE 39$ sBRANCH IF NOT 
TST FLAG9 sCHECK IF DC1i AND DL11-A WERE SELECTED 
BEQ 39$ sBRANCH IF NOT 
PRINT #DLMESS sPRINT MESSAGE 
MOV #DLMESS,RS sADDRESS TO RS 
TYPE sGO TYPE IT 
398; CMP R1,#LPD+2 sIS IT THE LPD1i1 
BNE 26$ sBRANCH IF NOT 
TST FLAG4 sCHECK IF PA611-P AND LPD1i1 WERE SELECTED 
BEQ 50$ sBRANCH IF NOT 
PRINT #LPDMES sPRINT MESSAGE 
MOV #LPOMES,RS sADDRESS TO RS 
TYPE 3GO TYPE IT 
50$: TST FLAG10 sHAS THE LPD11 BEEN DECREASED 
BEQ Sis sBRANCH IF NOT 
PRINT #LPDESS sPRINT MESSAGE 
MOV #LPDESS,RS sADDRESS TO RS 
TYPE :GO TYPE IT 
S18: TST FLAGS sHAS THE LPD11 BEEN DECREASED TO ZERO 
BEQ 26$ sBRANCH IF NOT 
PRINT #LPDMES sPRINT MESSAGE 
MOV #LPOMES,RS sADDRESS TO RS 
TYPE ;GO TYPE IT 
26%: CMP R1,#DV+2 sIS IT THE DVi1? 
BNE 13$ sBRANCH IF NOT 
PRINT #DVMESS sPRINT DV11 MESSAGE 
V #OVMESS,RS sADDRESS TO RS 
TYPE ;GO TYPE IT 
TST FLAG1 sCHECK IF DM11-A AND DV1i WERE SELECTED 
BEQ 11$ sBRANCH IF NOT 
PRINT #0VMES sPRINT MESSAGE THAT THEY WERE 
MOV @DVMES RS sADDRESS TO RS 
TYPE GO TYPE IT 
118; TST FLAG2 sCHECK IF DV11 WERE DECREASED TO ZERO 
BEQ 20$ sBRANCH IF NOT 
PRINT #DVMSS sPRINT MESSAGE THAT THEY WERE 
MOV #DVMSS RS sADDRESS TO RS 
TYPE 3GO TYPE IT 











— 
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COMPUTE THE ADDR.,JUMPERS AND VECTORS 


SEQ 0020 


1055 003570 000137 004332 20$: JMP PRI sBACK TO ROUTINE 
1056 003574 020127 010626 13$: CMP R1,#VO1+2 sIS IT THE VTVO1 
1057 003600 001014 BNE 46$ sBRANCH IF NOT 
1058 003602 005737 011754 TST FLAG6 sCHECK IF BOTH PA6-11RS AND VTVO1 WERE SELECTED 
1059 003606 001411 BEQ 46$ BRANCH IF NOT 
1060 003610 PRINT  #VO1MES sPRINT MESSAGE 
003610 012705 020345 MOV #VOLMES,RS sADDRESS TO RS 
003614 104003 TYPE sGO TYPE IT 
1061 003616 005737 011756 TST FLAG7 sCHECK IF THE VTVO1 WAS DECREASED 
1062 003622 001403 BEQ 46$ sBRANCH IF NOT 
1063 003624 PRINT #VO1MSS sPRINT MESSAGE 
003624 012705 020561 MOV #VOIMSS,RS sADDRESS TO RS 
003630 104003 TYPE :GO TYPE IT 
1064 003632 020127 010636 46$: CMP R1,@RL+2 sIS IT THE RL? 
1065 003636 001007 BNE 14$ sIF NOT, BRANCH 
1066 003640 005337 010634 DEC RL sDECREMENT DEVICE COUNT 
1067 003644 012705 016201 MOV @RLMESS, RS s;THEN PRINT STANDARD CSR 
1068 003650 104003 TYPE GO TYPE IT 
1069 003652 000137 004310 JMP CLEAN sBACK TO ROUTINE 
1070 003656 020127 010642 14$: CMP R1,¢TS11+2 sIS IT THE TS11? 
1071 003662 001007 BNE 15$ :IF NOT, BRANCH 
1072 003664 005337 010640 DEC TSi1 sDECREMENT DEVICE COUNT 
1073 003670 012705 016244 MOV #TSMESS,RS ;THEN PRINT STANDARD CSR 
1074 003674 104003 TYPE ;GO TYPE IT 
1075 003676 000137 004310 JMP CLEAN sBACK TO ROUTINE 
1076 003702 020127 010646 15$: CMP R1,@LPAK+2 sIS IT THE LPAK? 
1077 003706 001022 BNE 18$ sIF NOT, BRANCH 
1078 003710 105737 011740 TSTB FLAG sCHECK IF IN FA OR VA 
1079 003714 100410 BMI 19$ sBRANCH IF IN FA 
1080 003716 013737 010646 012040 MOV LPAK+2,SAVE1 sSAVE FLOATING ADDRESS 
1081 003724 012737 170460 010646 MOV #170460,LPAK+2 ;REPLACE FLOATING ADDRESS WITH STANDARD 
1082 003732 000137 004332 JMP PRI sBRANCH FOR VECTOR 
1083 003736 005337 010644 198; DEC LPAK sDECREMENT DEVICE COUNT 
1084 003742 012705 016307 MOV #LPKMES,RS ;THEN PRINT STANDARD CSR 
1085 003746 104003 TYPE GO TYPE IT 
1086 003750 000137 004310 JMP CLEAN sBACK TO ROUTINE 
1087 003754 020127 010652 18$: CMP R1, #IP+2 sIS IT THE IPi1 
1088 003760 001007 BNE 21$ ;IF NOT, BRANCH 
1089 003762 005337 010650 DEC IP sDECREMENT DEVICE COUNT 
1090 003766 012705 016334 MOV #IPMESS,RS sPRINT STANDARD CSR 
1091 003772 104003 TYPE GO TYPE IT 
1092 003774 000137 004310 JMP CLEAN sCONTINUE TEST 
1093 004000 020127 010662 21$: CMP R1,#RESR+2 ;IS IT THE RESR 
1094 004004 001007 BNE 22$ ;IF NOT BRANCH 
1095 004006 005337 010660 DEC RESR sDECREMENT COUNT 
1096 004012 012705 016377 MOV @REMES ,RS sPRINT NOT USED 
1097 004016 104003 TYPE GO TYPE IT 
1098 004020 000137 004310 JMP CLEAN sCOUNTINE TEST 
1099 004024 020127 010666 22$: CMP R1,#RX+2 sIS IT THE RX11 
1100 004030 001007 BNE 23% sBRANCH IF NOT 
1101 004032 005337 010664 DEC RX sDECREMENT DEVICE COUNT 
1102 004036 012705 016412 MOV #RXMES ,RS sPRINT STANDARD CSR 
1103 004042 104003 TYPE GO TYPE IT 
1104 004044 000137 004310 JMP CLEAN sCONTINUE TEST 
1105 004050 020127 010676 23%: CMP R1,#DRB+2 IS IT THE ORB 
1106 004054 001015 BNE 243 sBRANCH IF NOT 
1107 004056 005337 010674 DEC ORB sDECREMENT DEVICE COUNT 





a Ra a ee See ear 








- Ren nn SSS 
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SEQ 0021 
COMPUTE THE ADDR.,JUMPERS AND VECTORS 

1108 004062 013737 010676 012042 MOV DRB+2,SAVE2 sSAVE FLOATING ADDRESS 
1109 004070 012737 172430 010676 MOV #172430,DRB+2 ;REPLACE FLOATING ADDRESS WITH STANDARD 
1110 004076 012705 016455 MOV #DRBMES,RS sPRINT STANDARD CSR 
1111 004102 104003 TYPE :GO TYPE IT 
1112 004104 000137 004310 JMP CLEAN sCONTINUE TEST 
1113 004110 020127 010712 24$: CMP R1,@ML+2 sIS IT THE MLi1 
1114 004114 001002 BNE 25$ sBRANCH IF NOT 
1115 004116 000137 004332 JMP PRI sGET VECTOR 
1116 004122 020127 010726 25$: CMP R1, #@UNA+2 sIS IT THE DEUNA 
1117 004126 001007 BNE UNA$ sIF NOT BRANCH 
1118 004130 005337 010724 DEC UNA sDECREMENT DEVICE COUNT 
1119 004134 012705 016520 MOV #UNAMES , RS sTHEN PRINT STANDARD CSR 
1120 004140 104003 TYPE :GO TYPE IT 
1121 004142 000137 004310 JMP CLEAN sBACK TO ROUTINE 
1122 004146 020127 010732 UNA$: CMP R1,#UDA+2 sIS IT THE UDA 
1123 004152 001007 BNE S2$ sBRANCH IF NOT 
1124 004154 005337 010730 DEC UDA sDECREMENT DEVICE COUNT 
1125 004160 012705 016563 MOV #UDAMES , RS sPRINT STANDARD CSR AND VECTOR 
1126 004164 104003 TYPE GO TYPE IT 
1127 004166 000137 004310 JMP CLEAN sCONTINUE TEST 
1128 004172 020127 010742 52$: CMP R1,@KMS+2 sIS IT THE KMS11 
1129 004176 001005 BNE 27$ sBRANCH IF NOT 
1130 004200 012705 021334 MOV @KMSMES,RS sPRINT MODEM MESS 
1131 004204 104003 TYPE :GO TYPE IT 
1132 004206 000137 004310 JMP CLEAN sCONTINUE TEST 
1133 004212 020127 010756 27$: CMP R1,¢TU81+2 sIS IT THE TU81 
1134 004216 001007 BNE Qvs sBRANCH IF NOT 
1135 004220 005337 010754 DEC TU81 sDECREMENT DEVICE COUNT 
1136 004224 012705 016626 MOV #TU81MS,R5 sPRINT STANDARD CSR AND VECTOR 
1137 004230 104003 TYPE GO TYPE IT 
1138 004232 000137 004310 JMP CLEAN sBACK TO ROUTINE 
1139 004236 020127 011016 QV$: CMP R1,#QVSS+2 sIS IT THE QvSS 
1140 004242 001007 BNE DR$ sBRANCH IF NOT 
1141 004244 005337 011014 DEC Qvss sDECREMENT DEVICE COUNT 
1142 004250 012705 016671 MOV #QVSSMS,R5 sPRINT STANDARD CSR 
1143 004254 104003 TYPE :GO TYPE IT 
1144 004256 000137 004310 JMP CLEAN sBACK TO ROUTINE 
1145 004262 020127 010462 OR$: CMP R1,#D0R+2 sIS IT THE DR11? 
1146 004266 001021 BNE PRI sBRANCH IF NOT 
1147 004270 013705 010460 MOV DR,.RS :# OF DR1i1 
1148 004274 006305 ASL RS sMULTIPLY BY 10 
1149 004276 006305 ASL RS 
1150 004300 006305 ASL R5 
1151 004302 005405 NEG RS sSET UP TO SUBTRACT 
1152 004304 000137 004332 JMP PRI sGET OVER CLEAN UP ROUTINE 
1153 004310 005761 177776 CLEAN: TST -2(R1) sARE THERE ANY LEFT? 
1154 004314 001006 BNE PRI sYES, THEN BRANCH 
1155 004316 PRINT #CRLF sCR/LF 

004316 012705 014510 MOV #CRLF,RS sADDRESS TO RS 

004322 104003 TYPE GO TYPE IT 
1156 004324 005741 TST -(R1) sADJUST POINTER 
aero 004326 000137 004426 JMP PRIN s;CLEAN UP 
1139 REPRE POSSE SSSESSSSSSSSSSSSLOSOLESESSIOSOSSS SL OSESEEOLEL Sree er ey 
1160 PRRRRRAEEEAEAAEEAAEEEASEEASEARAEAEEAREAEREREEDAAEEAAEEEEE SARE EERE 
1161 
1162 004332 PRI: PRINT #CRLF sCR/LF 








FLOAT - ADDRESSES AND VECTORS 








COMPUTE THE ADDR.,JUMPERS AND VECTORS 


-— 


1163 


1164 
1165 
1166 
1167 
1168 
1169 
1170 


1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 


1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 


004332 
004336 
004340 
004340 
004344 
004346 


004350 


004436 
004440 


004444 


004446 
004452 


012705 
104003 


012705 
104003 
104004 


004737 


012705 
104003 
005341 
001420 
005721 
022711 
001003 
013711 
000410 
022711 
001003 
013711 
000402 
066011 
000745 


012705 


104003 
005721 


022120 


000137 


010146 


020127 
002501 


014510 


016105 


004444 


012054 


170460 
012040 
172430 
012042 
007520 


014510 


002510 


010444 
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MOV #CRLF,RS sADDRESS TO RS 
TYPE GO TYPE IT 
S$ PRINT #@TAB sPRINT TAB TO OFFSET ADDRESSES 
MOV #TAB,RS sADDRESS TO RS 
TYPE :GO TYPE IT 
OTOA sCHANGE ADDRESS TO ASCII 
sLWLOO2 TSTB FLAG sWHICH OPTIN? 
sLWLO02 BMI 6$ ;BR FOR ‘FA’ 
4$: JSR PC, VECT :GO GET THE VECTOR 
sLWLO002 BR 7$ :GO TYPE IT 
;LWL0026$: JSR PC , JUMPER sGET JUMPER OR SWITCH SETTING 
PRINT #A sTYPE THE ADDRESS AND VECTOR/JUMPERS 
MOV #A,RS sADDRESS TO RS 
TYPE :GO TYPE IT 
DEC -(R1) sANY MORE OF THE SAME? 
BEQ PRIN sBRANCH IF NO MORE 
TST (R1)+ sPOINT TO ADDR OF DEVICE 
CMP #170460, (R1) sCHECK TO SEE IF ITS THE LPA11-K 
BNE 30$ sBRANCH IF NOT 
MOV SAVE1,(R1) sRESTORE FLOATING ADDRESS 
BR 32$ sBRANCH TO CONVERT 
30$: CMP #172430, (R1) sCHECK TO SEE IF ITS THE DR11-B 
BNE 31$ sBRANCH IF NOT 
MOV SAVE2, (R1) sRESTORE FLOATING ADDRESS 
BR 32$ sBRANCH TO CONVERT 
31$: ADD NATCRO), CRI) sADD GAP BETWEEN SAME DEVICES 
32$: BR S$ GO CONVERT 
PRIN PRINT #CRLF sNEXT DEVICE 
MOV #CRLF RS sADDRESS TO RS 
TYPE :GO TYPE IT 
TST (R1)+ sADJUST POINTER 


;* END OF CHECKS 
; 


' 128: CMP a aaa 


JMP DONE 


sUPDATE POINTERS 
sSEE IF ANY MORE 


{RRARAREREREREREREREREREREEEAEEEEEEEEEEREAEAEAEAEA ARE EE EERE EEE 
-SBTTL CALCULATE THE VECTOR 

; THIS ROUTINE, AFTER CHECKING THE VECTOR, CONVERTS IT TO ASCII, 

; THEN UPDATES IT FOR THE NEXT UNIT OR DEVICE. 


VECT: MOV Ri, -(SP) 


jRRRRERARREREAEAEEREAREAEAEAEAEAREAEAS EE EEEEEE BEER REED EEE EEE 
$22222222222222222222222222222222222222222222222222222222222222? 


; SPECIAL DEVICE VECTOR CHECKING 


i 
;* THE VECTOR IS OK BEFORE WE GET TO THE DMA’‘S 


; 
4$: CMP R1,@DMA 
BLT 6$ 


sWORRY ABOUT CORRECT VECTOR? 
BR IF NO 


sLWLO002 






SEQ 0022 





FLOAT - ADDRESSES AND VECTORS 
CALCULATE THE VECTOR 


1214 004454 
1215 004460 
1216 004462 
1217 004466 
1218 004470 
1219 004474 
1220 004476 
1221 004502 
1222 004504 
1223 004510 
1224 004512 
1225 004516 
1226 004520 
1227 004524 
1228 004526 
1229 004532 
1230 004534 
1231 004540 
1232 004542 
1233 004546 
1234 004550 
1235 004554 
1236 004556 
1237 004562 
1238 004564 
1239 004570 
1240 004572 
1241 004576 
1242 004600 
1243 004604 
1244 004606 
1245 004612 


1250 004614 
1251 004622 
1252 004624 


1256 004632 
1257 004636 
1258 004640 
1259 004646 
1260 004650 


020127 
001476 
020127 
001473 
020127 
001470 
020127 
001465 
020127 
001462 
020127 
001457 
020127 
001454 
020127 
001451 
020127 
001446 
020127 
001443 
020127 
001440 
020127 
001435 
020127 
001432 
020127 
001427 
020127 
001424 
020127 
001421 


032737 
001403 
062737 


020127 
001007 
032737 
001403 
062737 


012701 
021127 
003405 


010452 
010456 
010636 
010642 
010652 
010666 
010672 
010676 
010712 
010726 
010732 
010752 
010756 
011012 
011022 
011026 


000004 
000004 


010526 
000010 
000010 


012030 
000774 
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012030 
012030 


012030 
012030 


SEQ 0023 


3* THE PA6‘'S FOLLOW THE DR'S BUT HAVE A VECTOR GAP OF ONLY 4 


1$: 


sDN VECOR INCREASE BY 4 
;DMBB INCREASE BY 4 

sRL1i1 VECTOR INCREASE BY 4 
sTSi1 VECTOR INCREASES BY 4 
;IP11 VECTOR INCREASES BY 4 
sRX11 VECTOR INCREASES BY 4 
sDRW VECTOR INCREASES BY 4 
sORB VECTOR INCREASES BY 4 
sML11 VECTOR INCREASE BY 4 
sUNA VECTOR INCREASE BY 4 
sUDA VECTOR INCREASE BY 4 
3VS100 VECTOR INCREASE BY 4 
;TU81 VECTOR INCREASE BY 4 
sQNA VECTOR INCREASE BY 4 
3VS31 VECTOR INCREASE BY 4 
sLNV-11 VECTOR INCREASE BY 4 


;CHECK TO SEE IF VECTOR IS AT AN EVEN 10 
;BR IF OK 
s;ELSE ADD 4 


GT40 VECTOR GOES UP BY 20 AND IS DIVISIBLE BY 20 


CMP R1,40N+2 
BEQ 6$ 
CMP R1,#DMBB+2 
BEQ 6$ 
CMP R1,@RL+2 
BEQ 6$ 
CMP R1,#TS11+2 
BEQ 6$ 
CMP R1,@IP+2 
BEQ 6$ 
CMP R1,@RX+2 
BEQ 6$ 
CMP R1,#DRW+2 
BEQ 6$ 
CMP R1,#DRB+2 
BEQ 6$ 
CMP R1,@ML+2 
BEQ 6$ 
CMP R1,#UNA+2 
BEQ 6$ 
CMP R1,@UDA+2 
BEQ 6$ 
CMP R1,#VS100+2 
BEQ 6$ 
CMP R1,#TU81+2 
BEQ 6$ 
CMP R1,#QNA+2 
BEQ 6$ 
CMP R1,#VS31+2 
BEQ 6$ 
CMP R1,@LNV+2 
BEQ 6$ 

CORRECT VECTOR IF NEEDED 
BIT #BIT2, VECTOR 
BEQ 1$ 
ADD #4, VECTOR 
CMP R1,#GT+2 
BNE 6$ 
BIT #BIT3, VECTOR 
BEQ 6$ 
ADD #10, VECTOR 


;ARE WE THERE? 
;D0N‘T WORRY ABOUT IT 
;CHECK IT 


sMAKE IT RIGHT 


s# AND FINALLY MAKE SURE IT'S IN BOUNDS 


3 
6$: 


MOV 
CMP 
BLE 


PRINT 


#VECTOR,R1 
@R1, 0774 


2$ 
#BADCON 


sSET R1 FOR OTOA ROUTINE 
sCHECK FOR HIGH VECTOR LIMIT 
sIT'S OK! 


ea oe ae 





FLOAT - ADDRESSES AND VECTORS 
CALCULATE THE VECTOR 


1269 
1270 
1271 
1272 
1273 


004670 
004674 
004676 


012705 
104003 
000137 


012737 
012737 
005037 
104004 
012737 
012737 
066037 
012601 
000207 


012704 
010046 
011103 
010300 
042700 
052700 
110044 
022704 
001002 
012600 
000002 
006203 
006203 
006203 
010300 
000761 


010046 
011100 
012703 
012704 


020127 
001437 


015605 
001120 


012076 
012070 
012076 
012062 


012054 
010120 


012062 


177770 
000060 


012054 


012070 
177774 


010516 
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004754 
005000 


004754 
005000 
012030 


MOV #BADCON,RS sADDRESS TO RS 
TYPE :GO TYPE IT 
JMP RES sDONE! 


2s: MOV #DBUF+6,SOTOA+2 ;MODIFY OTOA ROUTINE - BUFFER START 
MOV #DBUF,SOTOA+26 ;BUFFER END 
CLR DBUF +6 sZERO END OF BUFFER FOR CR/LF 
OTOA sCONVERT VECTOR 


MOV @ABUF,SOTOA+2  ;RESET OTOA ROUTINE 

MOV #A,SOTOA+26 

ADD VSTCRO), VECTOR ;ADJUST FOR NEXT 
5$: a | te sRESTORE R1 


-SBTTL OCTAL TO OCTAL ASCII 
MOV 


SOTOA: #ABUF ,R4 sSTART OF BUFFER TO R4 
MOV RO, -(SP) sSAVE RO 
MOV (R1),R3 ;GET NUMBER 
MOV R3,RO SO DOES RO 
1$: BIC #177770,R0 sTHE LAST 3 BITS ARE OF INTEREST! 
BIS 0,RO sMAKE IT AN ASCII NUMBER! 
MOVB RO, -C(R4) STORE IT 
CMP @A,R4 sARE WE DOWN? 
BNE 2$ ;NO-BR 
ar (SP)+,RO sYEP! RESTORE RO 
23: ASR R3 sGET THE NEXT 3 BITS 
ASR R3 
ASR R3 
MOV R3,RO sMOVE TO RO 
BR 1$ sDOITTOITAGAIN!!! 


-SBTTL JUMPER SELECT 
; CONVERT THE ADDRESS BITS THAT ARE SET TO THEIR ASCII EQUIVALENT 


3 

JUMPER: MOV RO, -(SP) sSAVE RO 
MOV OR1,RO 3RO< ADDRESS 
MOV #DBUF ,R3 sR3<=ASCII BUFFER 
MOV -4,R4 ;GO FROM -4 TO 12 


Porritt irri irri iritritiititiiiiitiititittttttit itt ttt 
§222222222222222222222 2222222222 2222222222222222222222222222222? 
; THE DEVICES THAT USE JUMPERS USE THE JUMPER TABLE (JT). 


, > eatin sTHE DJ'S, DH’S, AND DQ‘'S USE JUMPERS 


SEQ 0024 








FLOAT - ADDRESSES AND VECTORS 
JUMPER SELECT 


oo 


020127 
34 


020127 
001426 


020127 
001420 
020127 
001415 


010522 
010542 


010566 


010552 
010556 
010576 
010602 
010606 
010726 


011774 


012000 


000012 
005176 


000001 


000054 
000054 
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SEQ 0025 


CMP o— 
CMP R1,@0Q+2 
$ 


BEQ 1 

sLWLOO2 CMP R1,@LKK+2 
CMP R1,@LK+2 sLWLO02 
BEQ 1$ 


POPES ESES BSE SES ESE SESE EERE EEE E EERE SER ERROR ER EREEERE REO O REE eee 
i 


jRRRARERERERERERERERERAE AREA EEEE ES OSES ESOS EE EEE EEE EERE EERE ERED 
sTHE DEVICES THAT USE SWITCHES USE THE JUMPER TABLE (ST) 


CMP R1,@DU+2 
4$ 


BEQ 
CMP R1,@DUP+2 
BEQ as 
CMP R1,@D0MC+2 
BEQ as 
CMP R1,@0Z+2 
BEQ 4$ 
CMP R1,@KMC+2 
BEQ 4$ 
CMP R1,@UNA+2 
BEQ 4 
BR 3$ 
4$: - _ sRS<* SWITCH TABLE 
1$: MOV @JT,RS :RS<= JUMPER TABLE 
2$: INC R4 s;THE FIRST 3 BITS WILL BE CLEAR 
ROR RO sSHIFT THE ADDRESS 
BCC 2$ sIF CLR - TRY THE NEXT 
CMP R4, 012 ; 
BEQ 3$ ;BR IF FINISHED 
JSR PC ,.CVTA sCONVERT TO ASCII 
BR 2$ s00 IT AGAIN 
3$: MOV (SP)+,RO sRESTORE RO 
sLWLOO2 CLRB -C(R3) sZERO BYTE FOR OUTPUT 
oo — sZERO BYTE FOR OUTPUT sLWLOO02 


° 
-SBTTL CONVERT BIT TO ASCII @ 
ASL R4 


CVTA: sR4 HAS A @ BETWEEN O AND 11 
ADD R4,RS sADD IT TO RS ---POINTS TO CORRECT ASCII CHAR.S 
MOVB CRS), CR3)+ sMOV CHARACTERS TO BUFFER 
MOVB 1C€R5),(R3) 
SUB R4,RS sRESET RS 
ASR R4 sRESET R4 
CMPB CR3)+,0', 3TO MAKE IT NEAT---MAKE SURE THERE IS A COMMA 
BEQ i$ sYEP! OK!! 
MOVB # ,,CR3)+ sPUT IT THERE 
1s: RTS PC 


-SBTTL INPUT ROUTINE 


FLOAT - ADDRESSES AND VECTORS 


INPUT ROUTINE 


-— 


1381 005230 
1382 005234 


1435 005504 





012700 
105777 
105777 
100375 
117710 
142710 
121027 


002405 
121027 


003002 
142710 
121027 
001091 
000751 
121027 
001001 
000745 
121027 


012705 
104003 
000137 
121027 
001431 
032737 
001411 
042737 
012777 
105777 
100375 
121027 
001403 
112077 
0006 56 





021542 
173442 
173434 
173430 


000200 
000141 


000172 


000040 
000023 


000021 


000003 


001004 
000032 


001444 
011760 


000001 
011740 
007072 


006562 


000002 
000002 


014510 


001410 
000177 


000902 011740 
000002 011740 
000134 173224 
173216 
000015 


173204 


SINPUT: ae 
TST: 


;LWLOO2 BLT 
;LWLOO2 BGT 
8 
11$: 
12$: 
23: CMPB 
6$: CMPB 


7$: TST 


8$: CMP 
9$: SUB 


38: CMPB 


18: PRINT 
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8TRB,CRO) 
#B1T7,(RO) 
aaa 


11$ 
(RO), @172 
es 


) 
CSP)+,CSP)+ 
@CRLF 
@CRLF,RS 
QUES 
CRO), 0177 
RUBOUT 
> aati 
@BIT1,FLAG 
@'\, aTPB 
aTPs 
4s 
(RO), OCR 
is 
(RO)+, @TPB 
TsT 
ecrL_F 
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sSTART OF BUFF TO RO 
sKILL LAST CHAR. 
sSEE IF HE TYPED ANYTHING 


sSTRIP PARITY 

;SEE IF ITS LOWER CASE 

3;BR IF NO 

;BR IF NO 

sMAYBE 

sBRANCH IF DEFFINATELY NOT 
sBRANCH IF DEFINITELY NOT 
sIT IS - MAKE IT UPPER CASE IN BUFFER 
sIS THIS XOFF? 

;BRANCH IF NOT 

:IF YES, START OVER 

:IS THIS XON? 

s;BRANCH IF NOT 

sIF YES, START OVER 

sIS IT A tC? 


3NO 

sLETS START IT AGAIN!!! 

3IS IT A CONTROL Z 

sBRANCH IF NOT 

sPRINT SELECTED LIST 

sIS IT OK TO USE CONTROL A 

;BRANCH IF NO 

sIS IT A CONTROL A 

sBRANCH IF NOT 

sCHECK FOR VA OR FA 

sBRANCH IF FA 

sCHECK IF AT BEGINING OF VA TABLE 

sBRANCH IF AT BEGINING 

sBRANCH TO BACK UP TABLES 

sCHECK IF AT BEGINING OF FA TABLE 

sBRANCH IF AT BEGINING 

;BACK UP MT1 OR MT2 

s;BACK UP QT1i OR QT2 

sBACK UP DT1 OR DT2 AND CLEAR NUMBER 

sRESTORE STACK 

300 A CRRAGE RETURN AND LINE FEED 
sADDRESS TO RS 

3GO TYPE IT 

sSTART AGAIN 

3IS IT A DELETE? 

sYEP! 

sARE WE IN DELETE MODE? 

3NO-BRANCH 

sYES..NOT ANY MORE! 

; SEPARATE THE DELETED FROM THE NEW. 

sWAIT FOR READY. 


3A TERMINATOR? 
YES! 

3NO..JUST ECHO AND 
;GET NEXT CHARACTER. 
sPRINT A CR AND LF. 










sLWL002 


sLWL002 


sLWLO02 
sLWLOO02 
sLWLOO02 
sLWLOO2 
sLWLO02 
sLWLOO02 


SEQ 0026 





FLOAT - ADDRESSES AND VECTORS 


INPUT ROUTINE 





MACRO YOS.02 Thursday 25-May-85 10:38 





Page 2-17 





095504 012705 014510 MOV @CRLF,RS sADDRESS TO RS 
005510 104003 TYPE 3GO TYPE IT 
1436 005512 012700 021542 MOV OBUFF,RO sPOINT RO TO BEGINNING OF BUFFER. 
1437 005516 000002 RTI sRETURN 
1438 005520 022700 021542 RUBOUT: CMP OBUFF,RO sCAN‘T DELETE PAST BEGINNING OF BUFFER 
1439 005524 002245 BGE TST 
1440 005526 122737 000126 012277 CMPB ov, TERMTP sIS THIS A VIDEO TERMINAL? sLWLO02 
1441 005534 001423 BEQ 4$ sBRANCH IF IT IS sLWLO002 
1442 005536 032737 000002 011740 BIT #BIT1,FLAG sIN DELETE HODE? 
1443 005544 001011 BNE 3$ 3BR IF YES 
1444 005546 052737 000002 011740 BIS @BIT1, FLAG sNOW WE ARE! 
1445 005554 112777 000134 173124 MOVB @'\, OTPB sSEPARATE THAT THAT IS FROM THAT THAT IS NO MORE!! 
1446 005562 105777 173116 2s: TSTB aTPS sWAIT 
1447 005566 100375 BPL 2s 
1448 005570 114077 173112 3$: MOVB -CRO), TPB sECHO DELETE CHAR. 
1449 005574 105777 17310 1$: TSTB aTPS sWAIT FOR READY 
1450 005600 100375 BPL 1$ 
1451 005602 000616 BR TST sGET NEXT 
1452 005604 105740 4$: TSTB -C(RO) sBACK-UP POINTER ;LWLO02 
1453 005606 010046 MOV RO, -C(SP) sSAVE RO POINTER sLWLO02 
1454 005610 012700 012273 MOV @DCHAR ,RO sGET DELETE SEQUENCE OF CHARACTERS sLWLO02 
1455 005614 112077 173066 6$: MOVB (RO)+, TPB sOUTPUT FIRST CHARACTER sLWLO002 
1456 005620 105777 173060 S$: TSTB aTPS sREADY FOR NEXT ONE? sLWLO02 
1457 0€5624 100375 BPL 5$ sBRANCH IF NOT sLWLO002 
1458 005626 105710 TSTB (RO) sEND OF STRING? sLWLO002 
1459 005630 001371 BNE 6$ 3NO,NEXT CHARACTER sLWLO02 
1460 005632 012600 MOV (SP)+,RO sRESTORE RO sLWLO02 
tack 005634 000601 BR TST sBACK TO INPUT ROUTINE sLWLO002 
1463 
1464 -SBTTL DECIMAL ASCII TO OCTAL 
1465 005636 010146 SDATO: MOV R1,-CSP) SAVE R1 
1466 005640 010346 MOV R3,-(SP) sAND R3 
1467 005642 012701 021542 MOV OBUFF RI sINPUT BUFF TO R1 
1468 005646 005000 CLR RO sRO GETS RESULT 
1469 005650 112103 CMP1: MOVB (R1)+,R3 :GET CHAR. 
1470 005652 122703 000015 CMPB @CR,R3 sEOL? 
1471 005656 001433 BEQ EXIT sYES - BR 
1472 005660 120327 000060 CMPB R3, 60 sSEE IF IT‘S A NUMBER 
1473 005664 002414 BLT IL sCAN‘T BE LESS THAN 60 
1474 005666 120327 000071 CMPB R3,71 ; OR 
1475 005672 003011 BGT IL sGREATER THAN 71 
1476 005674 162703 000060 SUB #60,R3 sCHANGE TO OCTAL 
1477 005700 006300 ASL 0 ;SHIFT OLD 
1478 005702 060003 ADD RO,RS sADD TO NEW 
1479 005704 006300 ASL 0 ;0LD # 2 ; A DIVIDE BY 8.ROUTINE! 
1480 005706 006300 ASL RO ; #2 AGAIN 
1481 005710 060300 ADD R3,RO sADD (2*#OLD+NEW) TO 1040LD 
1482 005712 103356 BCC CMP1 sNO CARRY -- OK 
1483 005714 000407 BR TOB sELSE IT'S TOO BIG 
1484 005716 IL: PRINT @ILL sIT'S AN ILLEGAL NUMBER 
005716 012705 014513 MOV #ILL,RS sAODRESS TO RS 
005722 104003 TYPE 3GO TYPE IT 
1485 005724 052737 100000 011740 ER: BIS #BIT1S,FLAG sSET ERROR FLAG 
1486 005732 000411 BR OK sEXIT 
1487 005734 104006 TOB: OTDA 
1488 005736 PRINT #TB ;T00 BIG 





Ba ee Ree alana 





FLOAT - ADDRESSES AND VECTORS 
DECIMAL ASCII TO OCTAL 


1489 
1490 


005736 
005742 
005744 
005746 
005752 
005754 
005756 
005760 
005762 


005764 
005772 
005774 
006002 


012705 
104003 
000767 
016601 
021100 
002767 
012603 
012601 
000002 


032737 
001403 
062737 
000207 


032737 
001403 
062737 
032737 
001403 
062737 
000207 
032737 
001403 
062737 
032737 
001403 
062737 
032737 
001403 
062737 
000207 


014546 


000002 


000010 
000010 


000010 


000010 
000020 


000020 
000010 


000010 
000020 


000020 
000040 


000040 


014575 
006176 
000006 
177777 


000060 


000060 
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MOV #TB.R5 


TYPE 
BR ER 
EXIT: MOV 2(SP),R1 
CMP (R1),RO 
BLT TOB 
OK: MOV (SP)+,R3 
MOV (SP)+,R1 
RTI 
-SBTTL EVEN OR ODD? 
012034 BITE: BIT #10, ADDR 
BEQ BEX 
012034 ADD #10, ADDR 
BEX: RTS PC 
012034 BITE1: BIT #10, ADDR 
BEQ BADD 
012034 ADD #10, ADDR 
012034 BADD: BIT #20, ADDR 
BEQ BEXt 
012034 ADD #20, ADDR 
BEX1: RTS Pc 
012034 BITE2: BIT #10, ADU? 
BEQ BADS 
012034 ADD #10, ADDR 
012034 BADS: BIT #20, ADDR 
BEQ BADDS 
012034 ADD #20, ADDR 
012034 BADDS: BIT #40, ADDR 
BEQ BEX2 
012034 ADD #40, ADDR 
BEX2: RTS PC 
-SBTTL OCTAL TO DECIMAL 
;DIVIDE BY 1.410. tN 
; SET UP FOR A MAXIMUM OF TWO 
; 
SOTDA: MOV @MAXIUM, RO 
MOV #0IG2,R5 
MOV 86(SP),R4 
2s: MOV #-1,R1 
1s; INC R1 
SUB aRS,R4 
BCC $ 
ADD ORS, R4 
TST -(R5) 
BEQ 3$ 
ADD #'0,R1 
MOVB R1,(RO)+ 
BR 2$ 
3s: ADD #'0,R1 
MOVB R1,(RO)+ 
RTI 
-WORD O 
-WORD 1 
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SEQ 0028 


sADDRESS TO RS 

sGO TYPE IT 

GO SET ERROR 

sRESTORE R1 

sCHECK FOR MAXIMUM NUMBER 
3BR IF TOO BIG 

sRESTORE R3 

sRESTORE R1 


sENTER FOR EVEN 


BR IF EVEN 
sA0D 10 - EVEN OR ODD 


sENTER TO MAKE SURE ADDR O OR 40 
3BR IF EVEN 

sADD 10 TO MAKE IT EVEN 

sENTER FOR EVEN 

;3BR IF EVEN 

sADD 20 TO MAKE IT EVEN 


sENTER TO MAKE SURE ADDR O OR 100 
sBR IF ADOR BIT TWO IS CLEAR 

sADD 10 TO MAKE IT EVEN 

sCHECK FOR BIT FOUR 

sBR IF ADDR BIT FOUR IS CLEAR 
sADD 20 TO MAKE IT EVEN 

sCHECK FOR ADOR BIT FIVE 

3BR IF ADDR BIT FIVE IS CLEAR 
ADD 40 TO MAKE IT EVEN 


ASCII 
DIGITS. 


sPOINTER TO STORE ASCII. 
sPOINTER TO OIVISOR TABLE. 
;GET DIVIDEND. 

sRESET COUNTER. 

;THE QUOTIENT! 

3:00 THE PSEUDO DIVIDE! 
3NO CARRY-TRY AGAIN. 
sREPLACE WHAT WE TOOK. 
3;EOT? 

;BR IF YES 

sMAKE IT ASCII 

;STORE IT. 

sNEXT CHARACTER. 

sMAKE LAST ASCII 

sAND STORE IT 

sRETURN 





FLOAT - ADDRESSES AND VECTORS 
OCTAL TO DECIMAL ASCII 


096176 


000012 


105777 
100375 
105777 
100027 
017737 
042737 
122737 
001015 
105777 
100375 
017737 
042737 
122737 
001363 
111577 
122537 
001412 
105715 
001004 


012705 
104003 
000002 
121527 
001325 
000002 
012727 
000010 
000000 
105777 
100375 
112777 
005337 
001367 
000751 


172506 
172466 
172462 
177600 
000023 
172434 
172430 
177600 
000021 


172410 


012140 


014510 


000200 


172342 


000000 
006334 





011772 
011772 
011772 


011772 
011772 
011772 


172334 


DIG2: 


STYPE: 


XOFF; 


2 ee re 
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- WORD 


-SBTTL O 


TSTB 





10. 
UTPUT ROUTINE 
aTPS 


STYPE 

aTRS 

XON 
8TRB,SVCHA 
#177600,SVCHA 
#23,SVCHA 

XON 


TRS 

XOFF 
STRB,SVCHA 
#177600, SVCHA 
#21,SVCHA 
XOFF 

CRS), @TPB 
CRS)+,CHAR 


@CRLF 
@CRLF,RS 


(R5), @NOCRLF 
STYPE 


(PC)+,CPC)+ 
10 


-SBTTL DATA TABLES 
-NLIST BEX 
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sREADY? 

3;NO 

sCHECK FOR CHARACTOR 
;BRANCH IF NOT 

;SAVE CHARACTOR 

;CLEAR UNWANTED BITS 

sCHECK FOR XOFF OR CONTROL S 
;BRANCH IF NOT 

sCHECK FOR CHARACTOR 

sWAIT FOR XON 

:SAVE CHARACTOR 

sCLEAR UNWANTED BITS 

sCHECK FOR XON OR CONTROL Q 
sWAITE FOR CONTROL Q 

sPRINT IT 

sFILL CHAR.??? 

3;BR IF YES 

sEOD 7? 

a FOR SURE. 


: ;ADDRESS TO RS 
GO TYPE IT 


sMAYBE ?? 
NO 

;YES 

sSET FILL 
310 TO START 


sREADY? 

3:NO 

sTYPE A NULL. 

:1 LESS TO DO 

;D0 IT AGAIN 

3GO TEST FOR END OF DATA 





SEQ 0029 





FLOAT - ADDRESSES AND VECTORS 
DATA TASLES 


1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 


006362 
006374 


006752 


012300 
012444 
012601 
012736 
013064 
013212 
013353 
013501 
013642 
013767 
014114 
014241 
014377 


010430 
010454 
010500 
010524 
010550 
010574 
010620 
010644 
010670 
010714 
010740 
010764 
011010 


012321 
012465 
012622 
012757 
013106 
013235 
013374 
013522 
013663 
014010 
014135 
014262 
014420 


010434 
010460 
010504 
010530 
010554 
010600 
010624 
010650 
010674 
010720 
010744 
010770 
011914 
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012361 
012516 
012643 
013000 
013127 
013270 
013415 
013544 
013704 
014031 
014156 
014303 
014441 


010440 
010464 
010510 
010534 
010560 
010604 
010630 
010654 
010700 
010724 
010750 
010774 
011020 





SEQ 0030 


FRRRAEAAEREAREAEEEEREREEAEEEEAEAAREREAREEREARAREREEEER ED REED EE ES 
8222222222222222227 22222222 222222722 2222222222 2222222222222227222? 
: THE TABLES ARE THE GUTS OF THIS PROGARM ! 


; 
**# THESE TABLES MUST REMAIN IN ORDER!!! 


7* 
3* 


s* QUESTION TABLE (QT1) - POINTS TO THE — DEVICE NAMES 


3* USED FOR ASKING THE QUESTIONS A 

3* WHEN TYPING THE ANSWERS FOR THE ‘VA‘ OPTION. 

3* 

QTi: .WORD Q1,Q2,Q3,04,Q5 ;0C,0L,0P,0MA,0N 
-WORD Q6,Q07,Q8,Q9,Q10 ;DMBB,DR,PAR,PAP,LPD 


-WORD Q11,Q12,Q13,Q14,Q15 ;0T,0X,DLC,0J,0H 

-WORD Q16,Q17,Q18,Q19,Q20 ;GT,VSV,LPS,0Q,KWW 
-WORD Q21,Q22,Q23,Q24,Q25 ;DU,DUP,0V,LK,DWUN 
-WORD Q26,Q27,Q28,Q29,Q30 ;O0MC,0Z,KMC11,LPP11,V21 
-WORD Q31,Q032,Q033,Q34,Q35 ;V31,V01,OWR,RL11,TS11 
-WORD Q36,Q37,Q38,Q39,Q40 ;LPAK,IP,KWC,RESR,RX11 
.WORD Q41,042,043,044,045 ;0RW,ORB,OMP ,DPV,ML 
-WORD Q46,047,Q48,Q49,Q50 ;ISB,DMV,UNA,UDA,OMF 
-WORD Q51,Q52,Q53,Q54,Q55 ;KMS,PCL,VS,TU,KMV 
-WORD  Q56,Q57,Q58,Q59,Q60 ;KCT,IEX,DHV,0MZ,CPI 
-WORD Q61,062,063,064 sQNA,QVS,VS31,LNV 


3* DEVICE TABLE (VA OPTION) (OT1) - POINTERS TO THE DEVICE DATA TABLE 


74 THE ORDER IS DIRECTLY RELATED TO THE 
:* QTi TABLE. SO THAT WHEN YOU ASK FOR 
:* THE NUMBER OF DC11‘S YOU STORE THE 

3 ANSWER IN THE DEVICE DATA TABLE FOR 


i* THE DC1i1 AND NOT THE PA6‘S. 

OT1: -WORD OC,DL,OP,0MA,ON 
-WORD OMBB,OR,PAR,PAP,LPD 
-WORD OT,DX,OLC.0J,DH 
-WORD GT,VSV,LPS,0Q,KWW 
-WORD OU,DUP,DV,LK,DWUN 
-WORD OMC,DZ,KMC,LPP,V21 
-WORD V31,V01,OWR,RL,TS11 
«WORD LPAK,IP,KWC,RESR,RX 
-WORD  ORW,ORB,OMP,OPV,ML 
-WORD  ISB,OMV,UNA,UDA, DMF 
-WORD KMS,PCL,VS100, TU81,KMV 
-WORD KCT32,IEX,DHV,0MZ32,CPI32 
-WORD  QNA,QVSS,VS31,LNV 


— 








FLOAT - ADDRESSES AND VECTORS 


DATA TABLES 


1639 006762 
1640 006774 
1641 007006 
1642 007020 
1643 007032 
1644 007044 
1645 007056 
1646 007070 


1655 007072 
1656 007104 
1657 007116 
1658 0C7130 
1659 007142 
1660 007154 
1661 007166 
1662 007200 


012674 
013150 
013332 
013544 
013704 
014052 
014220 
014441 


010514 
010564 
010614 
010654 
010700 
010730 
010760 
011020 


012715 
013212 
013353 
013565 
013725 
014073 


014303 | 


010520 
010574 
010620 
010660 
010704 
010734 
010774 
000000 
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013021 
013235 
013415 
013606 
013767 
014114 
014325 


010540 
010600 
010630 
010664 
010714 
010740 
011000 


s*QUESTION TABLE 2 (QT2) - POINTS TO THE ASCII DEVICE NAMES 


3% USED FOR ASKING THE QUESTIONS FOR 

3% THE ‘FA‘' OPTION 

3* 

QTe: -WORD Q14,Q15,Q019,Q021,Q22 ;0J,0H,0Q,0U,0UP 
-WORD Q24,026,Q27,028,Q29 ;LK,OMC,0Z,KMC,LPP 


-WORD Q30,Q031,Q33,034,036 
-WORD Q38,Q39,040,041,042 
-WORD Q43,044,046,047,048 
-WORD Q49,Q50,Q51,053, 054 
- WORD raat nn 


:V21,V31,0WR,RL,LPAL1-K 
sKWC ,RESER,RX11,D0RW,ORB 
sD0MP ,DPV,ISB,DMV,UNA 
;UDA,DOMF ,KMS,VS100, TU81 
;KMV,DHV,0MZ32,CPI32,QVSS 
3VS31 


s*DEVICE TABLE 2 (D0T2) - USED WITH Q72 FOR STORING ANSWERS AND 


;* FOR COMPUTING THE FLOATING ADDRESSES. IT 
7* THEREFORE MUST BE IN THE ORDER OF THE 

3% PRIORITY OF THE DEVICE. IT ALSO MUST 

7* END WITH A ZERO. (CFA OPTION) 

3* 


DT2: -WORD OJ,DH,0Q,DU,DUP 
-WORD LK,DMC,0Z,KMC,LPP 
-WORD V21,V31,0WR,RL,LPAK 
-WORD KWC,RESR,RX,ORW,ORB 
-WORD  OMP,OPV,ISB,DMV,UNA 


-WORD UDA,DMF,KMS,VS100, TU81 
-WORD KMV,DHV,0MZ32,CPI32,QVSS 


-WORD VS31,0 





SEQ 0031 





FLOAT - ADDRESSES AND VECTORS 
DATA TABLES 


1673 007204 000040 000020 
1674 007216 000020 000020 
1675 007230 000010 000004 
1676 007242 000004 000004 
1677 007254 000020 000020 
1678 007266 000020 000020 
1679 007300 000002 000002 
1680 007312 000004 000002 
1681 007324 000020 000020 
1682 007336 000004 000012 
1683 007350 000012 000004 
1684 007362 000004 000001 
1685 007374 000004 000004 


1688 007406 000020 000020 
1689 0C7420 000002 000020 
1690 007432 000002 000002 
1691 007444 900002 000001 
1692 007456 000012 000012 
1693 007470 000012 000012 
1694 007502 000012 000012 
1695 007514 000012 000000 
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SEQ 0032 


;* MAXIMUM NUMBER TABLES 1 € 2 
3* (MT1,MT2) - USED FOR THE ‘VA’ AND ‘FA’ OPTIONS RESPECTIVELY 


3% CONTAIN THE MAXIMUM NUMBER OF CONTROLLERS THAT 

3% IS SUPPORTED FOR EACH DEVICE. THEY MUST REMAIN 

3% IN THE SAME ORDER AS QT1,D71 AND QT2,DT2 AND 

3% ALSO END WITH A ZERO. 

3* 

MT1: -WORD 32.,16.,32.,16.,16. ;DC,0L.,0P,DMA,DN 
-WORD 16.,16.,8.,8.,8. ;0MBB,OR,PAR,PAP,LPD 
-WORD 8.,4.,31.,16.,16. :0T,0X,DLC,0J,0H 
-WORD 4,4,1,16.,1 7GT,VSV,LPS,0Q,KWW 
-WORD 16.,16.,4,2,1 3DU,DUP,DV,LK,DWUN 
-WORD 16.,16.,4,2,2 sDMC ,0Z,KMC11,LPP,V21 
-WORD 2,2,2,4,4 3V31,V01,OWR,RL,TS11 
-WORD 4,2,2,1,4 sLPAK,IP11,KW11C ,RESR,RX1i1 
-WORD 16.,16.,10.,10.,1 ;0RW,ORB,OMP OPV ,ML 
-WORD 4,10.,10.,10.,10. ;ISB,OMV,UNA,UDA,OMF 
-WORD 10.,4,6,10.,10. KMS ,PCL,VS100, TU81,KMV 
-WORD 4,1,10.,10.,10. :KCT32,IEX,DHV,0MZ32,CPI32 
-WORD 4,4,10.,2,0 ;QNA,QVSS,VS31,LNV 

MT2: -WORD 16.,16.,16.,16.,16. ;D0J,0H,DQ,DU,DUP 
-WORD 2,16.,16.,4,2 3LK,DMC,0Z,KMC11,LPP 
-WORD 2,2,2,4,4 3;V21,V31,0WR,RL,LPAK 
-WORD 2,1,4,16.,16. sKWC ,RESER ,RX11,D0RW,DORB 
.WORD 10.,10. 4,10. 10. ;DMP ,OPV,ISB,OMV,UNA 
-WORD 10.,10.,10.,6,10. ;UDA,DMF ,KMS,VS100, TU81 
-WORD 10.,10.,10.,10.,4 3KMV ,DHV,DMZ32,CPI32,QVSS 


-WORD 10.,0 ;VS31 





FLOAT - ADDRESSES AND VECTORS 


DATA TABLES 


1697 
1698 
1699 
1700 
1701 007520 
1702 007532 
1703 007544 
1704 007556 
1705 007570 
1706 007602 
1707 007614 
1708 007626 
1709 007640 
1710 007652 
1711 007664 
1712 007676 
1713 007710 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 007720 
1723 007732 
1724 007744 
1725 007756 
1726 007770 
1727 010002 
1728 010014 
1729 010026 
1730 010040 
1731 010052 
1732 010064 
1733 010076 
1734 010110 
1735 
1736 
1737 
1738 
1739 
1740 010120 
1741 010132 
1742 010144 
1743 010156 
1744 010170 
1745 010202 
1746 010214 
1747 010226 
1748 019240 
1749 010252 
1750 010264 
1751 010276 
1752 019310 
1753 


Bint mera 


000010 
000010 
000002 
000010 
000010 
000010 
000020 
000020 
000010 
000010 
000020 
000040 
000020 


000010 
177770 
000040 
000010 
000010 
000010 
000160 
000400 
000010 
000020 
000040 
000020 
000100 
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177770 


174770 


;* NEXT ADDRESS TABLE 
3* (NAT) - USED TO CALCULATE THE NEXT CSR ADDRESS (VA OPTION) 
OF A LIKE DEVICE. 


10,10,-10,10,10 ;0C,0L,0P,0MA,DN 
10,-10,10,10,10 ;0MBB,DOR,PAR,PAP,LPD 


3* 


;* 
NAT: 


;* ADDRESS TABLE 


2,40,10,10,20 ;0T,0X,0LC,0J,0H 
10,10,40,10,1¢ GT, VSV,LPS,0Q,KWW 
10,10,40,10,0 ;DU,DUP,DV,LK,DWUN 
10,10,10,10,10 sOMC ,0Z,KMC11,LPP11,V21 
20,160,10,10,4 3V31,V01,OWR,RL,TS11 
20,400,10,10,10 sLPAK,IP11,KWC ,RESR,RX11 
10,10,10,10,0 ;DRW,ORB,OMP ,OPV,ML 
10,20,10,4,40 ;ISB,OMV,UNA,UDA,DOMF 
20,40,20,4,20 sKMS ,PCL,VS100, TU81,KMV 
40,20,20,40,40 #KCT32,IEX ,DHV,DMZ32,CPI32 
20,100,10,40 ;QNA,QVSS,VS31 »LNV 


3* CADDRT) - USED FOR LOADING THE DEVICE DATA TABLE (VA + FA OPTION) 
WITH THE FIRST ADDRESS FOR EACH DEVICE. 
MUST HAVE A ZERO ENTRY FOR 

FLOATING ADDRESS DEVICES 


174000, 176500, 174770, 175000, 175200 
170500, 167770, 172600,172700,172700 
177420 ,176200, 175610, 160010, 000000 
172000, 172000, 170400 ,000000, 172400 
000000 ,000000, 175000 ,000000, 172500 
000000 , 000000 , 000000 ,000000,, 000000 
000000 , 172600, 000000 ,000000, 172524 
170460171400, 000000 ,000000, 000000 
000000 ,000000, 000000 ,000000, 176400 
000000 ,000000 ,, 000000 ,000000, 000000 
000000 , 164200, 000000 000000, 000000 
164400 , 164100, 000000 ,000000, 000000 
174440 ,000000, 000000 , 176200 


;* VECTOR SIZE TABLE 


3* (VST) - USED TO CALCULATE THE NEXT VECTOR (VA OPTION) 


7% 
VST: 


10,10,10,10,4 ;DC,D0L,0P,DMA,0N 


4,10,10,10,10  ;D0MBB,DR,PAR,PAP,LPD 


10,10,10,10,10 ;0T,0X,0LC,DJ,0H 
20,20,30,10,10 ;GT,VSV,LPS,0Q,KWW 
10,10,20,10,10 ;DU,DUP,DV,LK,DWUN 


10,10,10,10,10 ;DMC,0Z,KMC11,LPP11,V21 
10,10,10,4,4 3V31,V01,0WR,RL,TS11 
10,4,10,4,4 sLPAK, IP ,KWC ,RESR,RX11 
4,4,10,10,4 sDRW,ORB DMP OPV ,ML 


10,10,4,4,40 sISB,OMV,UNA,UDA ,DMF 


20,10,4,4,10 sKMS ,PCL,VS100,TU81 


10,10,10,30,30 ;KCT32,IEX,DHV,0MZ32,CPI32 


4,20,4,4 ;QNA,QVSS,VS31,LNV 


:0C,0L,0P,0MA,DN 
;OMBB ,DR,PAR,PAP,LPD 
:0T,0X,0LC,D0J,0H 

3GT, VSV.LPS,DQ,KWW 

;0U,DUP ,DV,LK ,DWUN 
sDMC,0Z,KMC11,LPP,V21 
:V31,V01,OWR,RL,TS11 
sLPAK,IP11,KWC,RESR,RX11 
;DRW,ORB,OMP,DPV, ML 
;ISB,OMV,UNA, UDA, DMF 
sKMS,PCL,VS100, TU81 ,KMV 
sKCT32, IEX, DHV,0MZ32, CPI32 
;QNA, QVSS,VS31,LNV 


.KMV 






SEQ 0033 











rr 


FLOAT - ADDRESSES AND VECTORS 
DATA TABLES 


1754 
1755 
1756 
1757 
1758 010320 
1759 010332 
1760 010344 
1761 010356 
1762 010370 
1763 010402 
1764 010414 
1765 010426 
1766 


011036 
011132 
011226 
011322 
011416 
011512 
011606 
011725 


011052 
011146 
011242 
011336 
011432 
011526 
011622 
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s* ASCDEV - USED INPLACE OF QT2 FOR THE ‘FA’ OPTION WHEN TYPING ANSWERS 
;* 
011066 ASCDEV: .WORD JS,HS,QS,US,UPS 


011162 -WORD LKS,MCS,ZS,KMCS,PPS 

011256 -WORD MV21,MV31,WRS,RLS,LPAKS 

011352 -WORD KWCS,RESRS,RXS,ORWS,ORBS 

011446 -WORD  OMPS,OPVS,ISBS,OMVS,UNAS 

011542 -WORD UDAS,DMFS,KMSS,VS100S, TU81S 

011640 -WORD  KMVS,DHVS,0MZ32S,CPI32S,QVSSS 
-WORD  vVS3iS 





SEQ 0034 


FLOAT - ADDRESSES AND VECTORS 


DATA TABLES 


1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 


| 


010670 
010674 
010700 
019704 
010710 
010714 
010720 
010724 
010730 





010430 
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;* DEVICE DATA TABLE 

* 

;* MUST REMAIN IN ORDER OF THE VECTOR ASSIGNMENTS 
:* MUST END WITH TWO MINUS ONES 


3;* 

7* 

DEVSTR =. 
7* 

oc: -BLKW 
OL: -BLKW 
OP: -BLKW 
DMA: .BLKW 
ON: -BLKW 
DMBB : -BLKW 
OR: .BLKW 
PAR: -BLKW 
PAP: .BLKW 
LPD: -BLKW 
OT: -BLKW 
DX: .BLKW 
DLC: -BLKW 
DU: -BLKW 
DH: .BLKW 
GT: -BLKW 
VSV: -BLKW 
LPS: .BLKW 
DQ: .BLKW 
KWW: .BLKW 
DU: -BLKW 
DUP: OLKW 
DV: BLKW 
LK: SLKW 
DWUN: BLKW 
OMC: -BLKW 
OZ: -BLKW 
KMC: -BLKW 
LPP: -BLKW 
V21: -BLKW 
V31: -BLKW 
VO1: .BLKW 
OWR: -BLKW 
RL: -BLKW 
TS11: -BLKW 
LPAK: .-BLKW 
IP: -BLKW 
KWC: -BLKW 
RESR: -BLKW 
RX: -BLKW 
ORW: -BLKW 
ORB: -BLKW 
DMP: -BLKW 
OPV: -BLKW 
ML: .BLKW 
ISB: .BLKW 
OMV: .BLKW 
UNA: -BLKW 
UDA: -BLKW 


POO 10 19 10 10 10 10 10 10 9 10. 10 10 10 10 10 110 10 10 10 10 10 10 1 10 10 1 1 10 100 1 1 1 1F_— PT 1 1F_— TL OF| OFF PF PF PO FH fF FH fT 





; 2 WORDS / DEVICE 


; FIRST 
s SECOND 


# OF THEM 
1ST ADDRESS 


SEQ 0035 


- 
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SEQ 0036 

DATA TABLES 

1825 010734 DMF : -BLKW 2 

1826 010740 KMS: -BLKW 2 

1827 010744 PCL: -BLKW 2 

1828 010750 VS100: .BLKW 2 

1829 010754 TU81: -BLKW 2 

1830 010760 KMV: -BLKW 2 

1831 010764 KCT32: .BLKW 2 

1832 010770 IEX: -BLKW 2 

1833 010774 DHV: -BLKW 2 

1834 011000 OMZ32: .BLKW 2 

1835 011004 CPI32: .BLKW 2 

1836 011010 QNA: -<BLKW 2 

1837 011014 QVSS: -BLKW 2 

1838 011020 VS31: -BLKW 2 

1839 011024 LNV: -BLKW 2 

1840 pe 

1841 011030 DEVEND =. 

1842 3* 

coae 011030 000000 177777 177777 -WORD 0O,-1,-1 

1 3% 

1845 :* END OF DEVICE DATA TABLE 

1846 3* 

1847 000100 DEVCNT =DEVEND-DEVSTR/4 


FLOAT - ADDRESSES AND VECTORS 


DATA TABLES 


1849 
1850 
1851 
1852 
1853 
1854 


-— 
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3* THESE ASCII MESSAGES ARE POINTED TO BY THE ‘ASCDEV’ TABLE. 
3* USED FOR THE ‘FA’ OPTION 
3* THEY DEFINE THE DEVICE, THE BOARD WITH THE JUMPERS/SWITCHES, 
;* WHICH JUMPERS TO CUTOUT OR WHICH SWITCH AND THE SWITCHES TO 
* TURN ON OR OFF. 


-REM ft 

FATABL 

JS: -ASCIT 
HS: -ASCII 
Qs: -ASCII 
US: - ASCII 
UPS: - ASCII 
LKS: -ASCII 
MCS: -ASCII 
ZS: -ASCII 
KMCS; -ASCIT 
PPS: - ASCII 


MV21: -ASCII 
MV31: -ASCII 
WRS: -ASCII 
RLS: -ASCII 
LPAKS: .ASCII 
KWCS: -ASCII 
RESRS: .ASCII 
RXS: -ASCITI 
DRWS: -ASCII 
DRBS: -ASCII 
DMPS: -ASCII 
DPVS: -ASCII 
ISBS: -ASCII 
DOMVS: -ASCII 
UNAS: - ASCII 
UDAS: -ASCII 
OMFS: -ASCII 
KMSS: -ASCII 
VS100S: .ASCII 
TU81S: .ASCII 
KMVS: -ASCII 
DHVS: -ASCII 
DMZ32S: .ASCII 
CPI32S: .ASCII 
QVSSS: .ASCII 
VS31S: .ASCII 


s~N NN NR RR RRR R RR RRRRRRRRNRNRNR NN 


DJ11'S 
DH11'S 
0Q11'S 
dU11'S 
DUP11'S 


M105 
M7277 
M105 
M7822 
M7867 


JUMPER(S) TO CUTOUT/<NOCRLF > 
JUMPER(S) TO CUTOUT/<NOCRLF > 
JUMPER(S) TO CUTOUT/<NOCRLF > 
SW SWITCHES IN OFF POSITION/<NOCRLF > 
SW1 SWITCHES IN OFF POSITION/<NOCRLF> 


LK11‘S M7060 JUMPERCS) TO CUTOUT/<NOCRLF> 
DMC1ii DMR11'S M8200,E113,M8207,E£127-SWITCHES IN OFF POSITION/<NOCRLF > 
M7819 E61 M7814 E72 SWITCHES IN ON Sttan Oo comtanps 
< LF> 


0211'S 


KWi1-C'S 
RESERVED 
RX11'S 


KMV11'S 


M8204 E65 M8206 SWITCHES IN OFF POSITION / 


22272? 
M7067 
M7068 
22722? 
M7762 
2222? 
2222? 
2222? 
M7846 
M7816 
M7219 


ket hheeeeaee/<NOCRLF> 
she hh heee004/<NOCRLF> 
eeehee40%646/ <NOCRLF> 
&hhbheee0404/<NOCRLF> 
kee e664%4424/ <NOCRLF > 
$46444464444/<NOCRLF> 
*24444424444/ <NOCRLF> 
se 646444444/<NOCRLF > 
*hheeh444444/<NOCRLF> 
ehhh ee44404/<NOCRLF> 
sheet he ee444/<NOCRLF> 


M8207-YA #s24844444/<NOCRLF> 


M8020 
M8204 


M8053-MA M8064-MA #/<NOCRLF> 
M7792 E40 SWITCHES IN OFF POSITION/<NOCRLF > 


2722? 
M8396 


M8206 MOD M8640 ##4/<NOCRLF> 


22272? 
2722? 
22722? 


DHV11 DOHU11 77? 


DMZ32,CPI32 CASYNCH) ###ee004/<NOCRLF> 


CPI32 (SYNCH) 


QVSS 
VS31 


2272? 
22722? 


#44444046446/<NOCRLF> 
&644444444464/<NOCRLF> 


£446446464444/<NOCRLF> 
$444444444446/<NOCRLF > 


&60664424444/<NOCRLF> 
#44444446446/<NOCRLF> 
&44460444044/<NOCRLF> 
$664464244644/<NOCRLF> 


#6h444444464/<NOCRLF> 
$464646646464/<NOCRLF> 
&424466602464/<NOCRLF> 






SEQ 0037 








FLOAT - ADDRESSES AND VECTORS 
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SEQ 0038 
DATA TABLES 

1898 011036 FATABL: 

1899 011036 040 104 112. JS: -ASCII 0J11'S /<NOCRLF > 
1900 011052 040 104 110 HS: -ASCII DH11'S /<NOCRLF > 
1901 011066 040 104 121 QS: -ASCII 0Q11'S /<NOCRLF > 
1902 011102 040 104 1éS_ US: «ASCII DU11'S /<NOCRLF > 
1903 011116 040 104 125 UPS: -ASCII DUP11'S /<NOCRLF> 
1904 011132 040 114 113 LKS: - ASCII LK11'S /<NOCRLF > 
1905 011146 040 104 115 MCS: -ASCII DOMC11 /<NOCRLF > 
1906 011162 040 104 132 ZS: -ASCII 0Z11'S /<NOCRLF > 
1907 011176 040 113 115 KMCS: .ASCII KMC11'S /<NOCRLF> 
1908 011212 040 114 120 PPS: -ASCII LPP11'S /<NOCRLF> 
1909 011226 040 126 115 MV21 -ASCII VMV21'S /<NOCRLF> 
1910 011242 040 126 115 MV31: -ASCII VMV31‘'S /<NOCRLF> 
1911 011256 040 104 127 WRS: - ASCII DWR70‘'S /<NOCRLF> 
1912 011272 040 122 114 RLS: -ASCIT RL11‘S /<NOCRLF > 
1913 011306 040 114 120 LPAKS: .ASCII LPA11‘S /<NOCRLF> 
1914 011322 040 113 127 KWCS: -ASCII KW11-C‘'S /<NOCRLF> 
1915 011336 040 122 105 RESRS: .ASCII RESERVED /<NOCRLF> 
1916 011352 040 122 130 RXS: -ASCII RX11'S /<NOCRLF > 
1917 011366 040 104 122 ORWS -ASCII DR1i1-W'S /<NOCRLF> 
1918 011402 040 104 122 ORBS: -ASCII OR11-B'S /<NOCRLF> 


DMP11‘'S /<NOCRLF> 
DPV11'S /<NOCRLF> 
ISBi1'S /<NOCRLF> 
DMV11‘'S /<NOCRLF> 
UNA'S /<NOCRLF > 
UDA'S /<NOCRLF > 
DMF32'S /<NOCRLF> 
KMS11‘'S /<NOCRLF> 
VS100'S /<NOCRLF> 
TU81‘S /<NOCRLF > 
KMV11‘S /<NOCRLF> 
DHV11 DHU11 /<NOCRLF > 
DMZ32,CPI32 CASYNCH) /<NOCRLF> 


1919 011416 040 104 115 DMPS: - ASCII 
1920 011432 040 104 120 OPVS: -ASCII 
1921 011446 040 111 123 ISBS: .ASCII 
1922 011462 040 104 115 OMVS: .ASCII 
1923 011476 040 125 116 UNAS: -ASCII 
1924 011512 040 125 104 UDAS: .ASCII 
1925 011526 040 104 115 OMFS: -ASCII 
1926 011542 040 113 115 KMSS: .ASCII 
1927 011556 040 126 123 vS100S: .ASCII 
1928 011572 040 124 125 TU8iS: .ASCII 
1929 011606 040 113 115 KMVS: -ASCII 
1930 011622 040 104 110 DHVS: -ASCII 
1931 011640 040 104 115 OMZ32S: .ASCII 


NNR RNR RR RRR RRR RR RRR RRR RN RNR NNN 


1932 011667 040 103 120 CPI32S: .ASCII CPI32 (SYNCH) /<NOCRLF > 
1933 011712 040 121 126 QVSSS: .ASCII QVSS /<NOCRLF > 
1934 011725 040 126 123 VS31S: .ASCII VS31 /<NOCRLF > 


1935 -EVEN 





FLOAT - ADDRESSES AND VECTORS 


DATA TABLES 


1937 011740 
1938 011742 
1939 011744 
1940 011746 


1980 
1981 
1962 


—— 


011750 
011752 
011754 
011756 
011760 


012277 





054 
054 


040 





FLAG: 

FLAG1: 
FLAG2: 
FLAGS: 
FLAG4: 
FLAGS: 
FLAG6: 
FLAG?7: 
FLAGS: 
FLAGS: 


FLAGIO: . 
FLAGI1: . 
FLAGI2: . 


SVCHA: 
062 ST: 
064 JT: 


SAVE1: 
SAVE2: 
SAVES: 
SAVE4: 
SAVES: 
SAVE6: 
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SEQ 0039 


sUSED FOR ERRORS=BIT15 , OPTION=BIT7 , RUBOUT*BIT1 
sUSED FOR THE SELECTION OF DM11-A AND DVi1 
sUSED WHEN THE SELECTED DV11 WAS DECREASED 
sUSED WHEN THE SELECED DV11 WAS DECREASED TO ZERO 
sUSED FOR THE SELECTION OF PA611-P AND LPD11 
sUSED WHEN THE LPD11 WAS DECREASED TO ZERO 
sUSED FOR THE SELECTION OF PA611-R AND VTVO1 
sUSED WHEN THE VTVO1 WAS DECREASED 
sUSED FOR CONTROL A 
sUSED FOR THE SELECTION OF DC11 AND DL11-A 
sUSEO WHEN THE LPD11 WERE DECREASED 
sUSED WHEN THE PA611-R, PA611-P OR LPD11 WERE SELECTED 
USED FOR PRINTING CSRVEC HEADER sLWL002 
ere: FOR XON AND XOFF 
ASCII SWITCH TABLE 
-6,7,8,9, 10, 11,12,/ ;ASCII JUMPER TABLE 


ocooooooooooo 


~NOO 
us 


sVECTOR WORD 

sFLAG IF OFFSET IS NEEDED 

sCURRENT ADPRESS 

sRETURN PC 

sUSED TO STORE THE LPA11-K FLOATING ADDRESS 
sUSED TO STORE THE OR11-B FLOATING ADDRESS 
sUSED TO CALCULATE THE NEW DV11 ADDRESS 
sUSED TO CALCULATE THE LAST DV11 ADDRESS 
sUSED TO CALCULATE THE NEW LPD11 ADDRESS 
sUSED TO CALCULATE LAST LPD11 ADDRESS 


ocooooococoo 


;* ASCII OUTPUT BUFFER 
;* DO NOT CHANGE !!!! 


010 DCHAR: 


-ASCII 


3 ;ACSII OUTPUT BUFFERS 
2. / ;SPACE BETWEEN CSR AND SW OR VECTOR 
iS ; FILL CHAR. 
sSTORAGE LOC FOR GT/DL11E SPECIAL CASE 
A,0,0,'L,15,100,'V, 12,40; TERM. CHARACTERISTICS TABLE 


cheated #& FLOAT #4/<CR><LF><LF> 

OPTION: /<NOCRLF> 

<CR><LF>/HOW MANY OF EACH DOES THE SYSTEM HAVE.(DECIMAL)/<LF> 
10,40,10,0 3 BACKSPACE - SPACE - BACKSPACE sLWLOO2 
i) : TERMINAL TYPE sLWLOO02 











FLOAT - ADDRESSES AND VECTORS 


DATA TABLES 


2039 014114 
2040 014135 


ee ee 
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3* THE FOLLOWING ARE THE ASCII DEVICE NAMES POINTED TO BY QT1 AND QT2 
3* THE ‘VA' OPTION ( QT1 ) USES THEM FOR BOTH INPUT AND OUTPUT 








s@ THE ‘FA‘ OPTION ( QT2 ) USES THEM FOR INPUT ONLY. 


KEEP IN ORDER FOR CONVENIENCE! 


-ASCII 
-ASCII 
«ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCIT 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
.ASCII 
-ASCII 
-ASCII 
-ASCIT 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCIT 
-ASCII 
- ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCIT 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 


70C11'S 


/0P11'S 
70M11-A'S 


/ON11-AA‘S 
/0M11-88'S 
/OR11-A,C,K‘S DRV11 
/PAG11-R'S 
/PAG11-P'S 


/LPD11 


/0T11,07'S 


/DxX11'S 


/0L11-C,0,€'S OLV11-E 


/D0J11'S 
/O0H11'S 
/GT40 
/VSV11'S 
/LPS11 
/0Q11'S 


/KW11-W KWVL1 
/O0U11 DUV11'S 


/OUP 11'S 
/OV11'S 
/LKI1'S 
/DWUN’ S 


/DMC11 DMR11'S 
/0Z11 0ZS11 DZV1i1 0232'S 


/DWR70'S 


/RLi1L RLV11'S 
/TSi1 TU80'S 


/LPALL'S 


/IPi1 IP300'S 


/KW11-C'S 
/RESERVED 


/RX11 RX211 RXV1I1 RXV21'S 


/OR11-W'S 
/DR11-B'S 
/DMP 11'S 
/OPV11‘S 
7/ML11'S 

/1S811'S 
7O0MV11'S 
/UNA'S 


/UDA RQDX1‘S 


/OMF 32'S 
/KMS11'S 
/PCL11'S 


/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
7<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
7 <NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
7 <NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
*<NOCRLF > 
7<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF> 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
4 <NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 
/<NOCRLF > 





SEQ 0040 





SS ES 
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SEQ 0041 
DATA TABLES 

2041 014156 126 123 061 Q53: -ASCII /VS100'S /<NOCRLF > 

2042 014177 124 125 070 Q54: ASCII /TU81'S /<NOCRLF > 

2043 014220 113 115 126 Q55: ASCII /KMV11'S /<NOCRLF > 

2044 014241 113 103 124 Q56: -ASCII /KCT32'S /<NOCRLF > 

2045 014262 111 105 130 Q57: ASCII /IEX'S /<NOCRLF > 

2046 014303 104 110 126 Q58: -ASCII /DHV11 DHU11'S /<NOCRLF > 

2047 014325 104 115 132 Q59: «ASCII /DMZ32 CPI32 CASYNCH) 7<NOCRLF > 

2048 014355 103 120 111 Q60: «ASCII /CPI32 (SYNCH) /<NOCRLF > 

2049 014377 121 116 101 Q61: -ASCII /QNA'‘'S /<NOCRLF > 

2050 014420 lei 126 123 Q62: «ASCII /QVSS'S 7<NOCRLF > 

2051 01444: 126 123 063 63: -ASCII /VS31'S /<NOCRLF > 

2052 014462 114 116 126 Q64: «ASCII /LNVI1'S /<NOCRLF > 

S088 PESSSESSSSSESSSOSSSOSESSSSSSSES SL SS ES SS SSS E SOLES ELEC E OSES EEE 

2055 FERRARA EAEROAREAEAAEAAEEAEE AE EEAAASEKEAERAAEAAREAER AERA SAREE EE 

2056 








FLOAT - ADDRESSES AND VECTORS 
DATA TABLES 


MACRO YOS.02 Thursday 


2058 014503 015 O12 012 END: -BYTE 
2059 014510 01s 012 200 CRLF; -BYTE 
2060 014513 124 110 101 ILL: -ASCIZ 
2061 014546 124 110 101 ‘TB: -ASCII 
2062 014575 MAXIUM: .BLKB 
2063 014577 040 101 114 -ASCIZ 
2064 014612 015 Ole 120 OP: -ASCII 
2065 014643 O11 106 101 OP2: -ASCII 
2066 014714 oll 126 101 -ASCII 
2067 014761 oil 110 105 -ASCII 
2068 014773 oll 105 130 -ASCII 
2069 015005 105 116 124 -ASCII 
2070 015024 077 040 200 QMARK: .ASCII 
2071 015027 015 Ole 012 HELLO: .ASCII 
2072 015065 126 105 122 -ASCII 
2073 015102 01s O12 012 HELP; - ASCII 
2074 015143 103 117 116 - ASCII 
2075 015205 103 117 116 -ASCII 
2076 015241 103 117 116 -ASCII 
2077 015301 103 117 116 -ASCII 
2078 015345 124 105 122 TERMQ: .ASCII 
2079 015366 oll 101 040 -ASCII 
2080 015411 O11 114 040 - ASCII 
2081 015450 O11 126 040 - ASCII 
2082 015516 015 012 105 - ASCII 
2083 015556 126 101 114 TERMQ2: .ASCII 
2084 015605 01s 012 123 BADCON: .ASCII 
2085 015667 106 111 124 -ASCIZ 
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15,12,12,12,0 

CR,LF,NOCRLF 

/THAT'S NOT A VALID NUMBER!/ 
/THAT'S TOO MANY! ONLY / 


2 
/ ALLOWED !/ 


<CR><LF>/POSSIBLE OPTIONS ARE/<CR><LF><NOCRLF> 

/ FA-FLOATING ADDRESSES. (0J,DH,DQ,ETC. )/<CR><LF> 
/ VA-FLOATING ADDRESSES AND VECTORS. /<CR><LF> 

/ HE -HELP/<CR><LF> 

/ EX-EXIT/<CR><LF> 


7ZENTER OPTION: /<NOCRLF> 

4? /<NOCRLF> 

<CR><LF><LF>/CZFLA FLOAT UTILITY PROG - / 

/VERSION: CO /<NOCRLF> 

<CR><LF><LF>/CONTROL C TO RESTART PROGRAM/<CR><LF> 
CONTROL Z TO PRINT SELECTED LIST/<CR><LF> 

/CONTROL S TO STOP PRINTING/<CR><LF> 

/CONTROL Q@ TO CONTINUE PRINTING/<CR><LF> 

/CONTROL A TO BACK UP DEVICE LIST/<CR><LF><LF><NOCRLF> 


TERMINAL TYPES: /<CR><LF> 

/ A = LA36 NO FILL/<CR><LF> 

/ L = LA120 100 FILL CHARACTER/<CR><LF> 

/ V_= VTS2 OR VT100 50 FILL CHARACTER/<CR><LF> 


<CR><LF>/ENTER TERMINAL TYPE.CA,L,V)? /<NOCRLF> 
/VALID RESPONSES ARE -/<CR><LF><NOCRLF> 


;LWLOO2 


;LWLOO02 
;LwL002 
;LWLOO2 
;LWLO002 


;LWLOO2 
;LWLO002 
:LWLOO2 


;LWLO02 
;LWLOO02 
;LWLOO02 
;LWLOO2 
;LWLOO2 


;LWLO002 


L 
<CR><LF>/SORRY, BUT THE REST OF THE DEVICE(S) WILL NOT /<CR><LF> 


/FIT IN THE FLOATING VECTOR AREA!/<CR><LF><NOCRLF> 


sLWLO02 













SEQ 0042 














a 
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SEQ 0043 
DATA TABLES 

2087 015733 040 040 040 CSR: «ASCII / CSR = /<NOCRLF> sLWLO02 

2088 015746 040 104 105 CSRVEC: .ASCII / DEVICE / sLWLO002 

2089 015756 040 040 040 -ASCII / CSR VECT COMMENT/<CR><LF> ;LWLOO2 

2090 016024 040 055 os5 -ASCII / ------ / sLWLO002 

2091 016034 040 040 040 «ASCII / =<- were tee eee /<CR><LF> sLWLO002 

2092 016102 040 012 200 -ASCII / /<LF><NOCRLF> sLWLO002 

2093 016105 040 040 040 TAB: «ASCII / /<NOCRLF > sLWLO02 


2094 016121 015 012 124 DVMESS: .ASCII <CR><LF>/THE DV11 MODEM ADDRESS IS +20 , VECTOR IS +10/<NOCRLF> 
2095 016201 015 012 061 RLMESS: .ASCII <CR><LF>/1ST CSR = 774400, 1ST VECT = 160/<NOCRLF> 

2096 016244 015 012 O61 TSMESS: .ASCII <CR><LF>/1ST CSR = 772520, 1ST VECT = 224/<NOCRLF> 

2097 036307 ois O12 061 LPKMES: .ASCII <CR><LF>/1ST CSR = 770460, /<NOCRLF> 

2098 016334 015 012 061 IPMESS: .ASCII <CR><LF>/1ST CSR = 771000, 1ST VECT = 234/<NOCRLF> 

2099 016377 ois 012 116 REMES: .ASCII <CR><LF>/NOT USED/<NOCRLF> 

2100 016412 ois Ole O61 RXMES: .ASCII <CR><LF>/1ST CSR = 777170, 1ST VECT = 264/<NOCRLF> 

2101 016455 01s 012 061 ORBMES: .ASCII <CR><LF>/1ST CSR = 772410, 1ST VECT = 124/<NOCRLF> 
2102 016520 915 012 061 UNAMES: .ASCII <CR><LF>/1ST CSR = 774510, 1ST VECT = 120/<NOCRLF> 
2103 016563 015 012 061 UDAMES: .ASCII <CR><LF>/1ST CSR = 772150, 1ST VECT = 154/<NOCRLF> 
2104 016626 01s 012 061 TU81MS: .ASCII <CR><LF>/1ST CSR = 774500, 1ST VECT = 260/<NOCRLF> 
2105 016671 01S 012 061 QVSSMS: .ASCII <CR><LF>/1ST CSR = 777200, /<NOCRLF> 


2106 3 

ted ;LWLO02 FOLLOWING AREA MODIFIED TO FIT NEW FORMAT ;LWLOO2 
108 3 

2109 016716 015 012 040 DVMES: .ASCII <CR><LF>/ / ;LWLOO2 

2110 016770 052 052 052 -ASCII /##*DM11-A COMES BEFORE DV11 /<CR><LF> 

2111 017026 040 040 040 -ASCII / / ;LWLOO2 

2112 017076 102 117 124 -ASCII /BOTH WERE SELECTED/<NOCRLF> 

2113 017121 015 012 040 DVMSS: .ASCII <CR><LF>/ / ;LWLO02 

2114 017173 052 052 052 -ASCII /##*THE DV11S HAVE BEEN DECREASED, /<CR><LF> 

2115 017237 040 040 040 -ASCII / / ;LWLOO2 

2116 017307 114 111 115 -ASCII /LIMITED ADDRESS SPACE/<NOCRLF > 

2117 017335 015 012 040 LPDMES: .ASCII <CR><LF>/ / ;LWLOO2 

2118 017407 052 052 052 -ASCII /##*#PA611-P COMES BEFORE LPD11 /<CR><LF> 

2119 017447 040 040 040 AZ «OF / ;LWLOO02 

2120 017517 102 117 124 -ASCII /BOTH WERE SELECTED/<NOCRLF> 

2121 017542 015 012 040 LPDESS: .ASCII <CR><LF>/ / ;LWLOO2 

2122 017614 052 052 052 -ASCII /##*#LPD11S HAVE BEEN DECREASED, /<CR><LF> 

2123 017655 040 040 040 -ASCII / / ;LWLOO2 

2124 017725 114 111 115 -ASCII /LIMITED ADDRESS SPACE/<NOCRLF> 

2125 017753 015 012 040 LPDMSS: .ASCII <CR><LF>/ / ;LWLOO2 

2126 020025 052 052 052 -ASCII /##*THE PA611-P LEFT NO ROOM FOR /<CR><LF> 

2127 020067 040 040 040 «ASCII / / ;LWLOO2 

2128 020137 124 110 105 -ASCII /THE LPD11/<NOCRLF> 

2129 020151 015 012 040 DVNMS: .ASCII <CR><LFo/ / ;LWL002 

2130 020223 052 052 052 -ASCII /##sTHE DM11-A LEFT NO ROOM FOR /<CR><LF> 

2131 020264 040 040 040 «ASCII / / ;LWLOO2 

2132 020334 124 110 105 -ASCII /THE 0V11/<NOCRLF> 

2133 020345 015 912 040 VOIMES: .ASCII <CR><LF>/ / ;LWLOO2 

2134 020417 052 052 052 -ASCII /##*#PA611 OR LPD11 COMES BEFORE /<CR><LF> 

2135 020460 040 040 040 -ASCII / / ;LWLOO2 

2136 020530 126 124 126 -ASCII /VTVO1 BOTH WERE SELECTED/<NOCRLF> 

2137 020561 015 012 940 VOIMSS: .ASCII <CR><LF>/ / ;LWLOO2 

2138 020633 052 052 052 ASCII /##s#VTVO1S HAVE BEEN DECREASED, /<CR><LF> 

2139 020674 040 040 040 -ASCII / / ;LWLOO2 

2140 020744 114 111 115 -ASCII /LIMITED ADDRESS SPACE/<NOCRLF > 

2141 020772 015 012 040 DLMESS: .ASCII <CR><LF>/ / ;LWLOO2 

2142 021044 052 052 052 -ASCII /##sIF DL11-E IS USED FOR TUS8 /<CR><LF> 


2143 021104 040 040 040 -ASCII / / sLWLOO02 





a 


FLOAT - ADDRESSES AND VECTORS 


DATA TABLES 


2144 021154 
2145 021220 
2146 021270 
2147 021334 
2148 021406 
2149 C21450 
2150 021520 
2151 

2152 

2153 021542 





124 110 105 
040 040 040 
106 117 122 
01s 012 040 
052 052 052 
040 040 040 
053 061 060 


2154 000001 


Errors detected: 


0 


#as Assembler statistics 


Work file reads: 


0 


Work file writes: 0 
8578 Words ( 34 Pages) 
19402 Words ( 74 Pages) 


Size of work file: 
Size of core pool: 
Operating system: 


RSX-11M/PLUS (Under VAX/VMS) 


Elapsed time: 00:00:59.72 
CZFLAC,,CZFLAC/CR/-SP=CZFLAC 





KMSMES: 


BUFF : 
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-ASCII 
-ASCII 
- ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 


-EVEN 
- END 





SEQ 0044 


/THERE IS NO STANDARD CONFIGURATION/<CR><LF> 
/ / ;LWLoo2 ™ 
/FOR SYSTEMS WITH BOTH DC11 AND TUS8/<NOCRLF> 

<CR><LF>/ / ;LWLO002 
/aasIF IT HAS A M8640 ADDRESS IS /<CR><LF> 

/ / ;LWLO02 
7+10 VECTOR IS +10/<NOCRLF> 


sINPUT BUFFER!!! 
sTHAT'S IT FOLKS!!! 








CZFLAC 


SYMBOL CROSS REFERENCE 


SYMBOL 


A 
ABUF 
ADDR 
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VALUE 


012054 
012062 
012034 


007720 
010320 
015605 
006022 
006076 
006060 
006002 
006040 
006114 
005764 
006004 
006042 
000001 
000002 
002000 
004000 
010000 
020000 


014510 
015733 
015746 
005176 
104001 





REFERENCES 


2-1170 
2-1282 
#2-649 
#2-1512 
2-650 
2-847 
2-1268 
2-1504 
2-1514 
2-1511 
2-1499 
2-1507 
2-1517 
2-751 
2-755 
2-759 
#1-470 
#1-471 
1-480 
#1-481 
#1-482 
#1-483 
#1-484 
#1-485 
#1-472 
#1-473 
#1-474 
#1-475 
#1-476 
#1-477 
#1-478 
#1-479 
2-1381 
#2-559 
2-1069 
2-1132 
#2-1469 
2-775 
6-1764 
1-466 
12-2065 
12-2076 
12-2084 
13-2099 
13-2113 
13-2130 
13-2148 
2-642 
#13-2087 
2-1027 
2-1357 
#1-487 


2-1283 
2-1292 
2-657 


#2-1503 
#2-1510 


2-1425 


2-831 
2-1250 
2-1258 


2-1393 
2-612 


2-1436 
2-1562 
2-1075 
2-1138 
2-1482 
3-1632 
#9-1932 
2-1431 
12-2066 
12-2077 
12-2085 
13-2100 
~- 13-2114 
13-2133 


2-643 
#13-2088 


#2-1366 
2-634 


2-1299 
#10-1971 
2-1498 

*#2-1515 


2-1427 


2-1485 


2-620 


2-1438 
#10-1973 
2-1086 
2-1144 


4-1661 


2-1470 

12-2067 
12-2078 
13-2089 
13-2101 
13-2117 
13-2134 


2-1155 


PAGE 1 


CREF 


#10-1970 


*2-1500 
2-1516 


2-1442 


2-1028 


2-1467 


2-1092 
#2-1153 


#7-1835 


13-2118 
13-2137 


2-1162 


vo2 


2-1503 
*2-1518 


2-1444 


2-1386 


#13-2153 
2-1098 


10-1976 
12-2071 
12-2080 
13-2094 
13-2103 
13-2121 
13-2138 


2-1184 


*2-1505 
#10-1957 


2-1104 


2-1506 


2-1112 


12-2059 
12-2073 
12-2082 
13-2096 
13-2105 
13-2125 
13-2142 


2-1435 








*2-1508 


2-1121 


12-2064 
12-2074 
12-2083 
13-2097 
13-2109 
13-2126 
13-2144 


2-1566 





2-1510 


2-1127 


12-2064 
12-2075 
12-2084 
13-2098 
13-2110 
13-2129 
13-2147 


#12-2059 





SEQ 0045 
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SEQ 0046 
SYMBOL CROSS REFERENCE CREF vo2 
SYMBOL VALUE REFERENCES 
OBUF 012070 2-1278 2-1279 *2-1280 2-1315 #10-1972 
oc 010430 2-566 2-651 2-878 2-881 2-907 2-909 3-1621 #7-1776 
DCHAR 012273 2-1454 #10-1979 
DEVCNT = 000100 2-565 2-652 #7-1847 
DEVEND = 011030 #7-1841 7-1847 
DEVSTR = 010430 #7-1774 7-1847 
OH 010520 2-729 2-1324 3-1623 4-1655 #7-1790 
DHV 010774 2-771 3-1632 4-1661 #7-1833 
DHVS 011622 6-1764 #9-1930 
DIG2 006176 2-1526 #2-1544 
DJ 010514 2-877 2-878 2-1322 3-1623 4-1655 #7-1789 
OL 010434 2-911 2-1030 3-1621 #7-1777 
DLC 010510 3-1623 #7-1788 
OLMESS 020772 2-1034 #13-2141 
DMA 010444 2-917 2-919 2-924 2-1209 3-1621 #7-1779 
DMBB 010454 2-1216 3-1622 #7-1781 
DMC 010574 2-1340 3-1626 4-1656 #7-1801 
DMF 010734 2-737 3-1630 4-1660 #7-1825 
OMFS 011526 6-1763 #9-1925 
DMP 010700 3-1629 4-1659 #7-1818 
OMPS 011416 6-1762 #9-1919 
DMV 010720 2-735 3-1630 4-1659 #7-1822 
DMVS 011462 6-1762 #9-1922 
DMZ32 011000 2-773 3-1632 4-1661 #7-1834 
DMZ32S 011640 6-1764 #9-1931 
ON 010450 2-1214 3-1621 #7-1780 
DONE 002346 2-665 #2-844 e 
DONE 1 002510 2-879 #2-883 2-887 2-890 2-1193 
oP 010440 3-1621 #7-1778 
DPY 010704 3-1629 4-1659 #7-1819 
DPVS 011432 6-1762 #9-1920 
DQ 010540 2-1326 3-1624 4-1655 #7-1794 
DR 010460 2-1145 2-1147 3-1622 #7-1782 
ORB 010674 2-695 2-1105 *2-1107 2-1108 *#2-1109 2-1228 3-1629 4-1658 #7-1817 
DRBMES 016455 2-1110 #13-2101 
DRBS 011402 6-1761 #9-1918 
DRW 010670 2-1226 3-1629 4-1658 #7-1816 
DRWS 011366 6-1761 #9-1917 
OR$ 004262 2-1140 #2-1145 
OT 010500 3-1623 #7-1786 
OT1 006562 2-614 2-1415 #3-1621 
OT2 007072 2-622 2-658 2-1412 #4-1655 
DU 010550 2-1336 3-1625 4-1655 #7-1796 
DUP 010554 2-1338 3-1625 4-1655 #7-1797 
OV 010560 *2-862 2-921 *2-934 2-935 #2 -946 2-947 2-1046 3-1625 #7-1798 
DVMES 016716 2-1051 #13-2109 
DVMESS 016121 2-1048 #13-2094 
DVMSS 017121 2-1054 #13-2113 
DVNMS 020151 2-896 #13-2129 
OWR 010630 3-1627 4-1657 #7-1808 
DWUN 010570 #2 -863 3-1625 #7-1800 
Dx 010504 3-1623 #7-1787 
a ——————SSEe——————E——— 
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SEQ 0047 





SYMBOL CROSS REFERENCE CREF vo2 

SYMBOL VALUE REFERENCES 

DZ 010600 2-1342 3-1626 4-1656 #7-1802 

EMTHND 002260 1-519 2-543 #2-808 

EMTTAB 002276 2-812 #2-813 

END 014503 2-897 #12-2058 

ER 005724 #2-1485 2-1489 

ERRCK = 104002 #1-488 2-635 

EXIT 005746 2-1471 #2-1490 

FATABL 011036 #9-1898 

FILCNT 006332 *2-560 #2-1572 

FILL 006330 2-1563 #2-1571 

FILLER 006334 #2-1573 *2-1577 

FLAG 011740 #2-570 *2-612 *2-620 2-828 *2-831 2-845 2-1078 2-1410 2-1425 
*2-1427 2-1442 *2-1444 *2-1485 410-1937 

FLAG1 011742 *2-571 *2-923 2-1049 #10-1938 

FLAG10 011764 #2-580 *#2-1009 2-1040 #10-1947 

FLAG11 011766 *#2-581 *2-959 2-963 *2-967 2-971 *2-975 2-978 #10-1948 

FLAG12 011770 *#2-582 2-1025 *2-1028 #10-1949 

FLAG2 011744 *2-572 *2-945 2-1052 #10-1939 

FLAGS 011746 *2-573 2-894 *2-950 #10-1940 

FLAG4 011750 *#2-574 *2-995 2-1037 #10-1941 

FLAGS 011752 #2-S75 2-891 *2-1014 2-1043 #10-1942 

FLAG6 011754 *2-576 *2-980 2-1058 #10-1943 

FLAG7 011756 *2-577 *2-984 2-1061 #10-1944 

FLAGS 011760 *2-578 *2-629 2-1406 #10-1945 

FLAG9 011762 *#2-579 *2-913 2-1032 #10-1946 

GAP 002250 2-788 2-790 2-794 2-798 #2 -802 

GAP1 002240 2-796 #2-799 

GAP3 002224 2-792 #2-795 

GFA 001460 #2 -648 

GT 010524 *2-858 2-1256 3-1624 #7-1791 

HEAD 012155 #10-1976 

HELLO 015027 2-544 #12-2071 

HELP 015102 2-545 2-606 #12-2073 

HS 011052 6-1758 #9-1900 

IEX 010770 *2-870 3-1632 #7-1832 

IL 005716 2-1473 2-1475 #2-1484 

ILL 014513 2-1484 #12-2060 

INPUT = 104000 #1-486 2-548 2-588 2-633 

IP 010650 *2 -866 2-1087 *2-1089 2-1222 3-1628 #7-1812 

IPMESS 016334 2-1090 #13-2098 

ISB 010714 3-1630 4-1659 #7-1821 

ISBS 011446 6-1762 #9-1921 

JS 011036 6-1758 #9-1899 

JT 012000 2-1351 #10-1952 

JUMPER 005022 #2-1313 

KCT32 010764 *#2-869 3-1632 #7-1831 

KMC 010604 2-1344 3-1626 4-1656 #7-1803 

KMCS 011176 6-1759 #9-1907 

KMS 910740 2-741 2-1128 3-1631 4-1660 #7-1826 

KMSMES 021334 2-1130 #13-2147 

KMSS 011542 6-1763 #9-1926 

KMV 010760 2-769 3-1631 4-1661 #7-1830 

















CZFLAC 
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SEQ 0048 

SYMBOL CROSS REFERENCE CREF v02 

SYMBOL VALUE REFERENCES 

KMVS 011606 6-1764 #9-1929 

KWC 010654 3-1628 4-1658 #7-1813 

KWCS 011322 6-1761 #9-1914 

KWW 010544 *2-861 3-1624 #7-1795 

LF = 000012 #1-468 10-1976 10-1976 10-1976 10-1978 10-1978 12-2059 12-2064 12-2064 
12-2065 12-2066 12-2067 12-2068 12-2071 12-2071 12-2073 12-2073 12-2073 
12-2074 12-2075 12-2076 12-2077 12-2077 12-2078 12-2079 12-2080 12-2081 
12-2082 12-2083 12-2084 12-2084 12-2085 13-2089 13-2091 13-2092 13-2094 
13-2095 13-2096 13-2097 13-2098 13-2099 13-2100 13-2101 13-2102 13-2103 
13-2104 13-2105 13-2109 13-2110 13-2113 13-2114 13-2117 13-2118 13-2121 
13-2122 13-2125 13-2126 13-2129 13-2130 13-2133 13-2134 13-2137 13-2138 
13-2141 13-2142 13-2144 13-2147 13-2148 

LK 010564 2-1329 3-1625 4-1656 #7-1799 

LKS 011132 6-1759 #9-1904 

LNV 011024 *2-872 2-1244 3-1633 #7-1839 

LPAK 010644 2-690 2-733 2-1076 2-1080 *2-1081 *2-1083 3-1628 4-1657 #7-1811 

LPAKS 011306 6-1760 #9-1913 

LPD 010474 fits 2-973 2-993 *2-1000 2-1001 *2-1010 2-1011 2-1035 3-1622 

LPDESS 017542 2-1042 #13-2121 

LPDMES 017335 2-1039 2-1045 #13-2117 

LPDOMSS 017753 2-893 #13-2125 

LPKMES 016307 2-1084 #13-2097 

LPP 010610 3-1626 4-1656 #7 -1804 

LPS 010534 *2-860 3-1624 #7-1793 

MAXIUM 014575 2-1525 #12-2062 

MCS 011146 6-1759 #9-1905 

ML 010710 *2-867 2-1113 2-1230 3-1629 #7-1820 

MT1 007204 2-615 #5-1673 

MT2 007406 2-623 #5-1688 

MV21 011226 6-1760 #9-1909 

MV31 011242 6-1760 #9-1910 

NAT 007520 2-1182 #6-1701 

NEXT 001554 2-664 #2-675 

NOCRLF = 000200 #1-467 2-1568 9-1899 9-1900 9-1901 9-1902 9-1903 9-1904 9-1905 
9-1906 9-1907 9-1908 9-1909 9-1910 9-1911 9-1912 9-1913 9-1914 
9-1915 9-1916 9-1917 9-1918 9-1919 9-1920 9-1921 9-1922 9-1923 
9-1924 9-1925 9-1926 9-1927 9-1928 9-1929 9-1930 9-1931 9-1932 
9-1933 9-1934 10-1977 11-1989 11-1990 11-1991 11-1992 11-1993 11-1994 
11-1995 11-1996 11-1997 11-1998 11-1999 11-2000 11-2001 11-2002 11-2003 
11-2004 11-2005 11-2006 11-2007 11-2008 11-2009 11-2010 11-2011 11-2012 
11-2013 11-2014 11-2015 11-2016 11-2017 11-2018 11-2019 11-2020 11-2021 
11-2022 11-2023 11-2024 11-2025 11-2026 11-2027 11-2028 11-2029 11-2030 
11-2031 11-2032 11-2033 11-2034 11-2035 11-2036 11-2037 11-2038 11-2039 
11-2040 11-2041 11-2042 11-2043 11-2044 11-2045 11-2046 11-2047 11-2048 
11-2049 11-2050 11-2051 11-2052 12-2059 12-2064 12-2069 12-2070 12-2072 
12-2077 12-2082 12-2083 12-2085 13-2087 13-2092 13-2093 13-2094 13-2095 
13-2096 13-2097 13-2098 13-2099 13-2100 13-2101 13-2102 13-2103 13-2104 
13-2105 13.2112 13-2116 13-2120 13-2124 13-2128 13-2132 13-2136 13-2140 
13-2146 13-2150 

OFFSET 012032 #10-1956 

OK 005756 2-1486 #2-1493 








SYMBOL CROSS REFERENCE 


SYMBOL VALUE 

oP 014612 
OPTION 001230 
OPTNA 001236 
OP2 014643 


OTDA = 104006 
OTOA = 104004 


PAP 010470 
PAR 010464 
PCL 010744 
PPS 011212 
PRI 004332 
PRIN 004426 
PRINT 001444 
Q 012210 
QMARK 015024 
QNA 011010 
Qs 011066 
QT1 006362 
QaT2 006762 
QUES 001410 
Qvss 011014 


QVSSMS 016671 
QvVSSS 011712 
QVSS$ 001722 


QvS$ 002064 
Qvs 004236 
Q1 012300 
Q10 012560 
Q11 012601 
Qi2 012622 
Q13 012643 
Q14 012674 
Qis 012715 
Q16 012736 
Q17 012757 
Q18 013000 
Q19 013021 
Q2 012321 
Q20 013042 
Q2: 013064 
Q22 013106 
Q23 013127 
Q24 013150 
Q25 013171 
Q26 013212 
Q27 013235 
Q28 013270 
Q29 013311 
Q3 012361 
Q30 013332 
Q31 013353 
Q32 013374 








REFERENCES 


2-586 
#2 -586 
#2-587 

2-587 
#1-492 
#1-490 

2-961 

2-955 
*2-868 

6-1759 

2-1055 

2-1157 
#2-642 

2-630 

2-632 
*2-871 

6-1758 

2-613 

2-621 
2-631 

2-718 

2-1142 

6-1764 

2-714 
#2-759 

2-1134 

3-1600 

3-1601 

3-1602 

3-1602 

3-1602 

3-1602 

3-1602 

3-1603 

3-1603 

3-1603 

3-1603 

3-1600 

3-1603 

3-1604 

3-1604 

3-1604 

3-1604 

3-1604 

3-1605 

3-1605 

3-1605 

3-1605 

3-1600 

3-1605 

3-1606 

3-1606 


#12-2064 
2-607 
2-598 

#12-2065 
2-1487 
2-1164 
2-965 
2-957 
3-1631 

#9-1908 
2-1082 
2-1172 
2-1405 

#10-1978 

#12-2070 
2-1240 

#9-1901 
2-880 

#4-1639 
2-636 
2-777 

#13-2105 

#9-1933 
2-716 
2-778 

#2-1139 

#11-1989 

#11-1998 

#11-1999 

#11-2000 

#11-2001 
4-1639 
4-1639 

#11-2004 

#11-2005 

#11-2006 
4-1639 

#11-1990 

#11-2008 
4-1639 
4-1639 

#11-2011 
4-1640 

#11-2013 
4-1640 
4-1640 
4-1640 
4-1640 

#11-1991 
4-1641 
4-1641 

#11-2020 
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2-1281 

2-989 

3-1622 
#7-1827 


2-1115 
#2-1184 


3-1633 
#3-1600 
2-641 

2-1139 


#2-718 


#11-2002 
#11-2003 


#11-2007 


#11-2009 
#11-2010 


#11-2012 


#11-2014 
#11-2015 
#11-2016 
#11-2017 


#11-2018 
#11-2019 


PAGE 5 


CREF v02 


2-991 
#7-1783 


2-1146 


#7-1836 


2-1422 
*2-1141 


2-996 


2-1152 


3-1633 


3-1622 


2-1154 


4-1661 


#7-1784 


#2-1162 


#7-1837 


SEQ 0049 
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SEQ 0050 
SYMBOL CROSS REFERENCE CREF v02 
SYMBOL VALUE REFERENCES 
Q33 013415 3-1606 4-1641 #11-2021 
Q34 013436 3-1606 4-1641 #11-2022 
Q35 013460 3-1606 #11-2023 
Q36 013501 3-1607 4-1641 #11-2024 
Q37 013522 3-1607 #11-2025 
Q38 013544 3-1607 4-1642 #11-2026 
Q39 013565 3-1607 4-1642 #11-2627 
Q4 012402 3-1600 #11-1992 
Q40 013606 3-1607 4-1642 #11-2028 
Q41 013642 3-1608 4-1642 #11-2029 
Q42 013663 3-1608 4-1642 #11-2030 
Q43 013704 3-1608 4-1643 #11-2031 
Q44 013725 3-1608 4-1643 #11-2032 
Q45 013746 3-1608 #11-2033 
Q46 013767 3-1609 4-1643 411-2034 
Q47 014010 3-1609 4-1643 #11-2035 
Q48 014031 3-1609 4-1643 #11-2036 
Q49 014052 3-1609 4-1644 #11-2037 
Qs 012423 3-1600 #11-1993 
Q50 014073 3-1609 4-1644 #11-2038 
Q51 014114 3-1610 4-1644 #11-2039 
Qs2 014135 3-1610 #11-2040 
Q53 014156 3-1610 4-1644 #11-2041 
Q54 014177 3-1610 4-1644 11-2042 
Qs5 014220 3-1610 4-1645 #11-2043 
GS6 014241 3-1611 #11-2044 
Q57 014262 3-1611 #11-2045 
ass 014303 3-1611 4-1645 #11-2046 
Q59 014325 3-1611 4-1645 #11-2047 
Q6 012444 3-1601 #11-1994 
Q60 014355 3-1611 4-1645 #11-2048 
Q61 014377 3-1612 #11-2049 
Q62 014420 3-1612 4-1645 #11-2050 
Q63 014441 3-1612 4-1646 #11-2051 
Q64 014462 3-1612 #11-2052 
Q7 012465 3-1601 #11-1995 
Q8 012516 3-1601 #11-1996 
a9 012537 3-1601 #11-1997 
REMES 016377 2-1096 #13-2099 
RES 001120 2-542 2-563 2-898 2-1269 
RESR 010660 2-675 2-1093 #2-1095 3-1628 4-1658 #7-1814 
RESRS 011336 6-1761 #9-1915 
010634 2-680 2-1064 *#2-1066 2-1218 3-1627 4-1657 #7-1809 
RLMESS 016201 2-1067 #13-2095 
RLS 011272 6-1760 #9-1912 
RUBOUT 005520 2-1424 #2-1438 
RX 010664 2-685 2-1099 #2-1101 2-1224 3-1628 4-1658 #7-1815 
RXMES 016412 2-1102 #13-2100 
RXS 011352 6-1761 #9-1916 
SAVE 012036 #10-1958 
SAVE1 012040 #2-1080 2-1176 #10-1959 
SAVE2 012042 *#2-1108 2-1180 #10-1960 
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SEQ 0051 
SYMBOL CROSS REFERENCE CREF v02 
SYMBOL VALUE REFERENCES 
SAVE3 012044 #2-924 #2-925 *#2-926 *2-927 2-928 #2-930 2-931 #2-933 2-934 
2-942 #10-1961 
SAVE4 012046 Py *2-936 *2-937 *2-°38 *2-939 *2-940 *2-941 *2-942 2-943 
SAVES 012050 #2 -996 *2-997 *2-998 *2-999 2-1000 2-1006 #10-1963 
SAVE6 012052 #2-1001 *2-1002 #2-1003 *2-1004 #2-1005 *2-1006 2-1007 #10-1964 
SDATO 005636 2-814 #2-1465 
SERRCK 002324 2-815 #2-828 
SHIFT = 104005 1-491 2-747 
SHIFT1 = 104007 #1-493 2-753 
SHIFT2 = 104010 1-494 2-757 
SHIFTS = 104011 1-495 2-761 
SHIFT4 = 104012 01-496 2-749 
SINPUT 005230 2-813 #2-1381 2-1396 2-1399 
SOTDA 006116 2-819 #2-1525 
SOTOA 004752 2-817 #2-1278 *2-1279 #2-1282 *2-1283 #2-1292 
SPEC 012142 2-844 #10-1974 
SSHIFT 002166 02-784 2-818 
SSHIF1 002164 2-783 2-820 
SSHIF2 002162 2-782 2-821 
SSHIF3 002160 #2-7861 2-822 
SSHIF4 002170 2-785 2-823 
ST 011774 2-1349 #10-1951 
START 001004 #2-540 2-564 2-1402 
STARTA 001000 1-526 1-527 2-539 
STYPE 006200 2-816 #2-1547 2-1548 2-1569 
SVCHA 011772 *#2-1551 #2-1552 2-1553 #2-1557 #2-1558 2-1559 #10-1950 
TAB 016105 2-1163 13-2093 
TAG 002102 2-743 2-765 
TAG1 002030 2-730 2-732 2-734 2-736 2-742 2-751 2-766 2-770 2-772 
TAG2 002046 2-738 #2-755 2-774 2-776 
TAG3 001530 2-659 2-748 2-750 2-754 2-758 2-762 
TAG4 002014 #2-747 2-779 
TB 014546 2-1488 #12-2061 
TENDM 006304 #2-1564 2-1579 
TERMQ 015345 2-546 #12-2078 
TERMQ2 015556 2-556 2-597 #12-2083 
TERMST 012144 2-547 2-554 #10-1975 
TERMTP 012277 #2-558 2-1440 #10-1980 
TOB 005734 2-1483 @2-1487 2-1492 
TPB 000706 #1-533 2-1428 2-1433 2-1445 2-1448 2-1455 2-1561 2-1576 
TPS 000704 1-532 2-1429 2-1446 2-1449 2-1456 2-1547 2-1574 
TRB 000702 1-531 2-1382 2-1385 2-1551 2-1557 
TRS 000700 #1-530 2-541 2-1383 2-1549 2-1555 
TSMESS 016244 2-1073 #13-2096 
TST 005240 #2-1383 2-1384 2-1434 2-1439 2-1451 2-1461 
TSi1 010640 2-865 2-1070 *#2-1072 2-1220 3-1627 #7-1810 
Tus 002022 2-740 @2-749 2-768 
TU81 010754 2-713 2-767 2-795 2-1133 #2-1135 2-1238 3-1631 
TUB1MS 016626 2-1136 #13-2104 
TU81S 011572 6-1763 #9-1928 
Tu81$ 001706 2-709 2-711 2-713 
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SEQ 0052 
SYMBOL CROSS REFERENCE CREF v02 
SYMBOL VALUE REFERENCES 
TYPE = 104003 #1-489 2-544 2-545 2-546 2-556 2-586 2-587 2-597 2-606 
2-630 2-631 2-632 2-642 2-643 2-893 2-896 2-897 2-1027 


2-1029 2-1034 2-1039 2-1042 2-1045 2-1048 2-1051 2-1054 2-1060 
2-1063 2-1068 2-1074 2-1085 2-1091 2-1097 2-1103 2-1111 2-1120 
2-1126 2-1131 2-1137 2-1143 2-1155 2-1162 2-1163 2-1170 2-1184 
2-1268 2-1421 2-1435 2-1484 2-1488 2-1566 





UDA 010730 2-708 2-739 2-791 2-1122 #2-1124 2-1234 3-1630 4-1660 07-1824 
UDAMES 016563 2-1125 #13-2103 

UDAS 011512 6-1763 #9-1924 

UDA$ 001672 2-704 2-706 2-708 

UNA 010724 2-703 2-787 2-1116 #2-1118 2-1232 2-1346 3-1630 4-1659 @7-1823 
UNAMES 016520 2-1119 #13-2102 

UNAS 011476 6-1762 #9-1923 

UNA$ 004146 2-1117 #2-1122 

UPS 011116 6-1758 #9-1903 

US 011102 6-1758 #9-1902 

Vv = 000126 1-469 2-1440 

VECT 004444 2-1167 #2-1201 

VECTOR 012030 2-648 2-1250 #2-1252 2-1258 #2-1260 2-1265 #2-1284 #10-1955 
VST 010120 2-1284 #6-1740 

VSV 010530 2-859 3-1624 #7-1792 

VS100 010750 2-765 2-789 2-1236 3-1631 4-1660 #7-1828 

VS100S 011556 6-1763 #9-1927 

vS31 011020 2-1242 3-1633 4-1662 #7-1838 

VS31S 011725 6-1765 #9-1934 

vol 010624 #2 -864 2-976 *2-981 2-982 #2-985 2-1056 3-1627 @7-1807 
VOIMES 020345 2-1060 13-2133 

VO1MSS 020561 2-1063 13-2137 

Vai 010614 3-1626 4-1657 #7-1805 

V31 010620 2-731 3-1627 4-1657 #7-1806 

WRS 011256 6-1760 #9-1911 

XOFF 006240 #2-1555 2-1556 2-1560 

XON 006272 2-1550 2-1554 #2-1561 

zs 011162 6-1759 #9-1906 
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SEQ 0053 
MACRO CROSS REFERENCE CREF v02 
MACRO NAME REFERENCES 
ERCHK 1-499 2-635 
PRINT 1-504 2-544 2-545 2-546 2-556 2-586 2-587 2-597 2-606 2-630 
2-631 2-632 2-642 2-643 2-893 2-896 2-897 2-1027 2-1029 2-1034 
2-1039 2-1042 2-1045 2-1048 2-1051 2-1054 2-1060 2-1063 2-1155 2-1162 


2-1163 2-1170 2-1184 2-1268 2-1421 2-1435 2-1484 2-1488 





